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IJK Software and the ORIC-1 Micro 
bring you more exciting arcade 
action from the Xenon series... 


IJK Software Ltd present... 


From the author of the highly 
acclaimed Xenon-1 comes the 


second in the Xenon series. This i s ; “a Fe SE = FEATURES INCLUDE:- 


game continues the high standard 
of excellence set by its pre- 100% MACHINE CODE 


decessor.The amazing super high 

resolution.graphics make this 100% machine code arcade game a must for your SUPERB SOUND EFFECTS 
collection. SUPER-SMOOTH HI-RES 
Following their defeat at the hands of the Xenon fleet the Zorgons have captured the GRAPHICS ‘ 

Xenon princess Roz, and have imprisoned her in their castle. You are commissioned to 

rescue her by scouring the four corners of the Zorgon Empire to capture the magic MULTI-STAGE ARCADE ACTION 
stones. These stones, guarded by the Quadnogs, Terrapods and many other strange SKILL LEVELS 

beasts, are needed to bridge the bottomless chasm surrounding the castle, enabling you 

to achieve your goal. HALL OF FAME 

Each one of the many varied stages in this scintillating mission will test your arcade 

i ty ec 4 aaa at For the 48K ORIC-1 £8.50 inc. 


OTHER TITLES IN THE IJK SOFTWARE ORIC-1 RANGE... 
is 


tax Candy Floss 


HANGMAN® 40 MAZE 


XENON-1 INVADERS FANTASY QUEST REVERSE CANDYFLOSS & 3D MAZE & 
100% M/C arcade Machine code Intriguing Superb board HANGMAN BREAKOUT 
game forthe arcade game for adventure for game for Two top Arcade action for 
48K ORIC-1 16K & 48K ORIC-1 48K ORIC-1 48K ORIC-1 educational 48K ORIC-1 
£8.50 inc. £7.50 inc. €6.50 inc. £6.50 inc. programs for £7.50 inc. 
48K ORIC-1 


ALL PRICES FULLY INCLUSIVE OF VAT and P&P - NO MORE TO PAY 


Our software has been officially approved by Oric Products International Ltd., 
and is available from branches of W.H. Smiths, Laskys, Computers for all, 
Zappo, Boots, John Menzies, The Spectrum Chain, many other leading 
department stores, hundreds of independent dealers nationwide and i in 
23 countries across the world, You can also order direct fror | advertis 
software is in stock now and will be despatched within 48 hi 
order: 


IJK (’. 24HOUR ANEKEONE 


Unit 3c, Moorfields, Moor Park Avenue, es 


software ia Telephorie (0259) 55202 FY2 OJY = 
ELT Limited Se eae a 


AY ax sarequest. 
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New Products Review 
A first look at the incredible new 
Oric Atmos 


Telephone Directory 

This is a program to store all 
those important _ telephone 
numbers that you keep 
forgetting. 


And Forthly . . . Screen 
Dump 

A useful utility for all Forth 
users. 


en rnin \y, 
gee pom baend)) 2 


Captain Tanex 
Another Entertaining 
Adventure. 


Oric-Base 
More help for this popular 
program. 


Chaser 


Here’s your chance to try and 
catch the computer out! 
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Editor’s Comment 


When I mentioned in issue 4 that 
I was looking for software 
reviewers I expected to be com- 
pletely underwhelmed by half a 
dozen or so replies but much to 
my surprise I received dozens of 
them. Letters are now going out 
to all those who wrote although 
obviously not everyone can be 
used. So many thanks to all of 
you and if you are a specialist in 
one particular area I would still 
be delighted to hear from you. 


A number of people have com- 
plained that listings printed in 
the magazine have faults or er- 
rors in them. We are taking 
more care now to spot them 
before they get into print but 
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one of the problems is that when 
people send their programs to us 
on cassette, they often only 
record a fast version and as you 
know the Oric is very sensitive to 
tape problems at the fast speed. 
So if you are one of our contri- 
butors please, please send us 
your programs at both fast & 
slow speeds for everyone’s 
peace of mind. 


Due to popular request I have 
printed a picture of my cat, 
Trillian, to replace the usual 
grotty picture of myself. In the 
next issue will be a picture of a 
chicken I saw on holiday. 


If you have just received your 
new Oric for Christmas I would 


By Paul B. Kaufman 


like to welcome you to the Oric 
Owner Magazine and am sure 
that you will find it invaluable 
when you are stuck in one of 
those all night programming ses- 
sions. And don’t forget that we 
always are on the lookout for 
good quality programs and 
articles to print. 


Apologies for the slight delay in 
sending out the magazines but 
we have been converting our 
subscription system to run on 
our new Apricot Computer and 
it was a bit more difficult than 
we first expected. By the way, 
don’t forget that your subscrip- 
tion may need renewing next 
issue — we'll let you know. 


News 


~ News Brief 


Oric Launch 
Atmos at Which 
Computer? Show 


Stand No: 2403 
Hall 3A NEC 
Jan. 17th 1984 


Launched at the Which Com- 
puter Show, and in full produc- 
tion as from Jan 16 ’84, is 
Atmos, a new 48K_ British 
microcomputer from Oric Prod- 
ucts International. 


Superseding the Oric 1, of which 
more than 160,000 were shipped 
during 1983, the Atmos incor- 
porates a number of new 
features and refinements, the 
most obvious being a_profes- 
sional full-pitch typewriter key- 
board, and a re-styled case in 
black and red. The Oric four 
colour printer and new 320K 
byte 3” micro disc drives have 
also been re-styled in the same 
colour scheme. 


Although Basic programs are 
totally software compatible with 
the Oric I, the Atmos has a new 
ROM operating system which, 
claim Oric, greatly enhances the 
performance over the original 
Oric 1. See our full review 
further on. 


New Software 


An exciting new range of soft- 
ware for the ORIC-1 is to be 
launched on Ist March. 


It is called ‘Softbacks’. 


The name comes from the idea 
that the computer will increas- 
ingly take over from books as 
the medium of information stor- 
age in the home. A computer 
can store as much information as 
a book and has the added dimen- 
sion of intelligent presentation. 
Where you once bought a note- 
book to write in or a text book to 
learn from, you will in future 
probably buy a piece of software 
which will enable your computer 
to do the job. 


The three programs available 
initially are good examples of 
how the computer can add the 
extra dimensions. 


The first is ACCOUNT BOOK, 
a personal finance program. 
You put the figures in, the com- 
puter adds them up and presents 
them in the form of summaries 
that show at a glance how you 
stand financially. Features 
include Account Definition, 
Budgeting, Standing Orders and 
File Handling. It produces a 
comprehensive range of reports 
on printer or screen. 


The other two are educational 
programs which up to now have 
been hard to find for the ORIC. 


STORY BOOK takes any piece 
of text and replaces the words by 
dashes. The aim is to reconstruct 
the story and as you guess the 
words they are put back to their 
places on the screen. It stimu- 
lates early readers and foreign 
language students in a way the 
printed page cannot hope to 
match. 


PICTURE BOOK is designed 
with young children in mind. 
They can build up a picture of 
familiar objects —if they can 
spell the names! It comes with a 
built-in picture dictionary of key 
words for early learning, and 
extra words can be added. 


Further information may be 
obtained from Softbacks, PO 
Box 257, Watford WD1 3LQ. 


STOP 
PRESS 


Computer World opens up in 
Beckenham this week to sell 
home computers. Initially it will 
stock more than 10 models of 
home micro and others will be 
added soon —- ZX81 Spectrum 
48K Dragon 32 Oric 1-16/48K 
Vic 20 Commodore 64 CLG 
SORD MS BBC B Lynx 96K. 
Other models can be ordered. 
Besides this is as wide a range of 
software, (even for machines 
not stocked) as is found in shops 
in central London — hundreds of 
cassettes including education 
and business software. 
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News 


Tansoft 
convert 


Tansoft have completed the con- 
version of their software titles to 
run on the Oric Atmos. They all 
retain compatibility with the 
Oric-1. Customers ordering soft- 
ware are requested to state 
which machine they have. 


PSS convert 


With the imminent release of the 
new Oric Computer PSS have 
now completed conversion of all 
existing Oric programs. Tapes 
will be sold containing versions 
for both Orics. 


PSS tapes will now contain 
versions of the game for both 
Orics and this will continue 
until further notice. Owners of 
the Oric 1 will also be supported 
on all new releases. 


For further details contact John 
Fletcher at PSS on:- Coventry 
(0203) 81346. 


Graphics & 
Programming 
for the Oric 


A course is being offered by 
the University of Birmingham 
entitled, ‘Graphics and Pro- 
gramming for the Oric’. 


The course will include the basic 
concepts of computer graphics — 
namely windowing, drawing of 
lines and curves, _ trans- 
formations (shifting, scaling and 
rotating) and a discussion of the 
main concepts of G.K.S. 
‘Graphical Kernel System’ 
which is soon to become the new 
international standard in two- 
dimensional graphics. 


More information from: Mrs S. 
Laflin-Baker, Aston Webb 
Building, Lecture Room 7, Uni- 
versity of Birmingham. 


‘Oric-1] 
Machine Code’ 
by Bruce Smith 


Shiva Publishing have published 
a paperback by Bruce Smith 
called ‘Oric-1 Machine Code’, 
for those Oric owners with some 
knowledge of BASIC. 


The book teaches the reader 
how to program the Oric-1 in 
machine code, which allows pro- 
grams to be RUN more quickly 
and special effects to be creased. 
It includes information on Hex 
and BCD, registers, absolute 
and indirect addressing, macros, 
the stack and how to use MOS 
routines. 


It will cost £6.95 and will be 
released in March 1984. 


News Brief 


Joystick has 
its own 
interface 


Pennant 
centring joystick which plugs 
straight into the printer port of 
the ORIC-1. 


announce a Sr 


It contains its own interface 
which gives eight-way move- 
ment and high speed firing with 
full simultaneous sound effects. 
A sturdy micro-switch mechan- 
ism is used for high sensitivity 
and provision is made for the 
connection of a second joystick 
or printer if required. 


Priced at £14.85 it is supplied 
with a demonstration program. 


Pennant, 

29 Hounds Road, 
Chipping Sodbury, 
Bristol 
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‘Software 


Software Scan 


Backgammon — 
Dormere 
Software 

Price &7.95 


Dormere Software Presents 
Orical 
Backgammon 


This is a package from a Com- 
pany I have not heard of before. 
I farmed the game out to several 
people who are better players 
than myself and they concluded 
that it actually plays quite a 
strong game. On the graphics 
side, I felt that the board could 
be improved a little but with 
these sort of games, the actual 
playability is far more import- 
ant. Not too bad at all! 

By Paul B. Kaufman 


Franklin’s 
Tomb — 


Salamander 
Software 
Price — £9.95 


Salamander’s ‘Franklin’s Tomb’ 
is a text only adventure. The 
playing instructions and illustra- 
tions of the locations are in a 


well-produced booklet accom- 
panying the tape. 


An unusually long wait after the 
opening credits displays the 
basic plot — pressing the wrong 
key and you are straight into the 
game. Thought has gone into the 
screen display. On the left is 
your location and on the right is 
an inventory of what you are 
carrying. These do not scroll and 
are only up-dated when you pick 
up something or move to a 


different location. The bottom 


half of the screen is used for your 
inputs and the computer’s 
replies. 


The game is a nice mixture of 
humour and puzzles with only 
one location so far that you 
cannot get out of. 


If forms part of a trilogy but each 
can be played on its own. 


At £9.95 it’s a bit on the expen- 
sive side, especially as once you 
have solved an adventure, it is 
no longer playable. If you like 
this sort of programme, buy 
it — Well thought out and enter- 
taining. 


By P. A. Winter 


Composer — 
Sector 


7 Software 
Price £6.50 


S& SECTOR 7 SOFTWARE 


AND HELPS YOU 
TO COMPOSE YCHH 
owt SIC 


This package allows you to com- 
pose three part music on the 
Oric. It allows you complete 
control over virtually every 
aspect of music generation. 


You enter your piece of music 
on staves which are displayed on 
the screen. A comprehensive 
‘music’ editor allows you to 
insert or delete bars or move 
them around. 


There are several sample tunes 
supplied on the cassette which 
impressed me greatly. 


Sector 7 Software are offering 
prizes to the best compositions 
produced with the program. If 
you are a music enthusiast then I 
would strongly recommend this 
package. 


By Paul B. Kaufman 
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Regulars 


Practical Machine Code 


As a Microtan owner I was 
forced into learning 6502 
Machine Code by lack of funds 
to buy the extensions necessary 
for high level languages. When I 
switched to the Oric I was struck 
by the sluggishness of the 
BASIC compared to machine 
code programs. This really came 
home when I read a letter in 
Oric Owner from someone ask- 
ing about fast sideways scrolling. 
If there ever was an example of 
machine code being worth learn- 
ing this is it. Most of the real 
faint-hearted probably stopped 
at the first mention of machine 
code but I hope to prove that it’s 
not only the veteran m/c games 
writers (most of them half my 
age) who can use machine lan- 
guage. 


Working with the — screen 
memory is a good place to start 
because the first thing it is 


important to understand is that 


at the machine code level we are 
really dealing with the shuffling 
about of bytes of memory and on 
the screen we can see this hap- 
pening. 


There are mountains of books 
and articles on 6502 code but 
most are processor oriented and 
tell all about what each instruc- 
tion does but not how to put 
them together. This is an 


attempt to develop a routine 


(Part 1) 


By D. Sinfield 


whilst explaining the steps along 
the way. 


The first thing to do is to set a 
goal so that you know that the 
program is finished. Otherwise 
you'll be adding bits and pieces 
to the routine for ever. The first 
goal that we can set ourselves 
is to produce a program that 
scrolls right with full wrap 
around on the first line of the 
screen. Now we know where 
we're going we can set off. 


I use flow charts a lot and the 
first process is to do a macro- 
algorithm, which is just a flow- 
chart that isn’t too detailed but 
outlines the processes. Figure 1 
shows the sort of thing. You'll 
notice that the flowchart is linear 
and that’s the way machine lan- 
guage works so flowcharting like 
this seems sensible. As a matter 
of style I like one start (at the 
beginning) and one finish (at the 
end). Sometimes this adds a 
couple of bytes and sometimes it 
doesn’t work out at all. 


Now come away from the key- 
board — I know it makes a nice 
noise and puts up neat typing on 
the screen but before getting to 
the point of entering the pro- 
gram there’s lots of working out 
to do first! The savings made in 
the speed at which the program 
runs are to some extent paid for 


at the stage of program develop- 
ment and debugging. 


As a middle step between us and 
the machine we are going to use 
Assembly code. This simply 
takes the machine code instruc- 
tions and makes them a little 
more human. There is a list of 
6502 instructions and their mne- 
monics in appendix K of the Oric 
manual. Don’t worry too much 
about them now — we'll be look- 
ing at each one as it is used. 


Before starting the program let’s 
look at the Oric’s screen 
memory. It can be represented 
by a matrix like Figure 2. To put 
a character in a given screen 
position we put its ASCII code 


in the appropriate memory 
location. This can be done in 
BASIC using POKE -try 


POKE#BFDF,48. Given that 
48 is the decimal ASCII code for 
0 the result should be predict- 
able. To point to these screen 
locations the program is going to 
use an addressing mode called 
indirect, which means that the 
actual location is not in the 
program — it is in fact in page 
zero memory i.e. somewhere 
between 0000 and OOFF. The 
program is given the location of 
this pointer. The first thing our 
program has to do is set up these 
zero page addresses to point to 
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Regulars — 


the top left hand corner of the 
screen. To keep things uncom- 
plicated by attributes we will 
keep the paper and ink columns 
untouched. Our pointer wants 
to indicate the memory location 
BBAA. From now on, by the 


way, all numbers will be in 
hexadecimal unless otherwise 
stated. 


The Oric is BASIC oriented and 
will go back to the interpreter 
when the present program is 
over. To make sure that our 
program can coexist with the 
interpreter it is necessary to use 
some zero page locations that 
aren’t going to be used in 
BASIC. It so happens that the 
lowest locations are free and this 
program is going to use 0000 and 
0001. The 6502 requires that the 
low byte of the address pointer 
(the last two digits) must go into 
the lowest of the zero age loca- 
tions. 


The first task then is to get AA 
into location 0000. Look at the 
program in Figure 3. Only worry 
about the first two columns for 
now. Line one LoaDs the Accu- 
mulator with the value AA. The 
accumulator is a byte of RAM 
actually inside the 6502 and as 
you Il see most transactions pass 
through it. We show that the 
actual value AA is to go into the 
accumulator by using the hash 
mark (#) between the in 
struction (LDA) and the oper- 
and (AA). Line two puts the 
contents of the accumulator at 
location 00 using the instruction 
STore Acc. Notice that there is 
no hash mark here because 00 
isn’t a value, its a memory loca- 
tion. The next two lines use the 


same instructions but different 
operands to load the value BB 
into memory location 0001. We 
can trace the values in each 
relevant location like this: + n/k 
= Not known 


After Accu- 

Line mulator QO00 O001 
1 AA n/k = n/k 

Z AA AA © n/k 

3 BB AA © n/k 

4 BB AA BB 


The equivalent in BASIC would 
be: 
POKE 0), 170:POKE 1,187 


The pointer in zero page, 
remember, points to the top left 
of the screen and to scroll right 
we have to start on the right 
(think about it). The program is 
going to use the Y register both 
to change the address pointed to 
and count the number of charac- 
ters in a line. First Y has to be 
assigned a starting value that 
represents the number of charac- 
ters on a line, ignoring the two 
attribute columns. The manual 
says that this is 37 in decimal 
which is 25 in hex. To load this 
value into Y the instruction 
LoaD Y is used, again in the 
immediate mode, in line 5 of the 
program. 


Now, well and truly initialised, 
we can get on with moving 
things. As we are aiming at 
wraparound the right hand 
character has to be stored until a 
space has been created for it on 
the left. The first task is to get 
into the accumulator with a load 
A instruction. Look at line 6 of 
the program and try not to 
panic. The line looks complex 
but it isn’t really. LDA we 
know, the operand in brackets 


means that this isn’t an address 
but an address of an address — 
the one we’ve just set up — and 
the Y shows that the value of the 
Y register is to be added to the 
address pointer to arrive at the 
correct address of the value to be 
obtained. Taking line 6 as an 
example we get: The address 
pointed to by the operand is 00. 
At 00 there is the low order byte 
of the address (AA) The next 
highest location holds the high 
order byte (01=BB) Put these 
together in the right order 
(BBAA) And add the value of 
the Y register (25 + BBAA = 
BBCF) Now put the value held 
at this address in the accumula- 
tor. 


If you consult figure 2 again 
you'll see that the address 
pointed to sure enough is the top 
line far right character. So after 
line 5 the accumulator will hold 
the ASCII code of this cha- 
racter. The next line (7) puts the 
ASCII code in a temporary store 
called the stack. The mnemonic 
PHA stands for PusH Acc. and 
all it is necessary to know at the 
moment is that if you push more 
onto the stack than you pull off it 
you'll lose the return address 
and end up with a crash. 


Having dealt with the character 
on the far right we want the next 
one to the left of it. To move the 
pointer left it has to be de- 
creased by one. This is done by 
line 8. Try reducing Y by one 
and working through the steps in 
the paragraph before last and 
you'll see that the pointer will be 
indicating the next left charac- 
ter. There is an instruction to 
subtract one from Y called DE- 
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crement Y. It takes up only one 
byte as does PHA because all 
the addresses, amounts etc. are 
implied by the instruction. This 
gives the name of yet another 
addressing mode. 


Line 9 is familiar. Line 10 moves 
the pointer right by /Ncrement- 
ing Y and line 11 puts the 
caracter code that’s held in the 
accumulator back on the screen 
one position to the right of its 
previous position. Line 12 puts 
the pointer back to where it 
started after line 8. 


After each character has been 
done the program checks that 
the end of the line hasn’t been 
reached in line 13. All the screen 
positions on a line will have been 
done when decrementing Y in 
line 12 results in zero. This is 
tested using the Branch if Not 
Equal (in this case read zEro for 
equal). This instruction is self 
explanatory but the operand 
part of line 13 is a little obscure. 
In its branch instructions the 
6502 uses relative (yet another 
mode) addressing. Instead of 
telling the processor the address 
of the next instruction to be 
done if the condition is true the 
operand represents a number of 
forward or backward jumps that 
have to be made to arrive at the 
destination instruction. To cal- 
culate branch offsets is easy fol- 
lowing the steps below: 


Forward Branches 

1 Add two to the address of the 
branch instruction. 

2 Subtract the above from the 
destination address. 


Backward Branches 


1 Subtract the destination 


address from the branch instruc- 
tion address. 
2 Subtract the result from FE. 


Don’t forget that all the arith- 
metic is in hex. The above is the 
didactic method it tells you what 
to do, for details of why you do it 
and the intricacies of two’s com- 
plement refer to just about any 
book or article on machine code 
or binary arithmetic. Apply the 
backward branch method to des- 
tination OD and branch address 
14 the result should be F7 — the 
operand in line 13. The fact that 
Oric has a hex mode in BASIC 
means that it’s easy enough to 
write a little program to work 
these out for you. The advan- 
tage of relative addressing is that 
the program can be located any- 
where in memory without hav- 
ing to alter the branches. 


Because of the branch in line 13 
execution of line 14 only takes 
place if Y is zero and the whole 
line has been moved and the 
ASCII code for the character 
that was on the far right can be 
put on the far left. It is retrieved 
from the stack using PuLl Acc. 
As Y is zero the pointer must be 
indicating the far left column 
and STore Acc. (00), Y does the 
trick. 


The whole line has now been 
moved and the Re7Jurn from 
Subroutine in line 16 returns 
control to BASIC. 


Unless you’re lucky enough to 
have an assembler the work’s 
not over yet. Assembly code is 
too human for the machine and 
it has to be coded. This can be 
done from appendix K of the 
manual but I find that the table 


is that in fig 4. If you run down 
the code in column 4 of figure 3 
comparing it with the assembly 
code in column 2 you should be 
able to see how the machine 
code is finally arrived at. The 
thing to remember is that when 
its in RAM instructions look 
like ordinary hex numbers and it 
is the instruction itself that tells 
the machine whether to expect 
an operand and how many bytes 
long this has got to be. Failing to 
include the correct length oper- 
and means the program will get 
out of step and will certainly 
crash — probably fatally. 


Now you can get on to the 
keyboard and enter the code. 
There are several ways of doing 
this the one included in the 
manual consists of turning the 
code into data statements but for 
our purposes I have written a 
short BASIC program to do the 
job. It does some validity checks 
but beware of entering the letter 
O instead of zero. The best way 
to check the code has been 
entered correctly is to disassem- 
ble it. The routine will go any- 
where there is spare protected 
RAM. I put it at 9800 onwards 
and protected it with GRAB: 
HIMEM#97FF. If you do the 
same it can be saved using: 


CSAVE“MOVER’”, 
A#9800,E#9819 


but don’t blink or you'll miss it! 


To run the routine make sure 
that there is something on the 
top line of the display and that 
the current print position is not 


-$o near the bottom that the top 


line will be scrolled off and 


CALL#9800 
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everything in the top line should 
have moved one place right. 
Now try this: 


FOR N=1 TO 500: 
CALL#9800:NEXT 


the top line will start whizzing 
round at a mind-boggling rate. 
You might like to try it again 
with a short WAIT to slow 
things up. 


This routine on its own is fairly 
trivial but it can be applied to 
any line by changing the pointer. 


Fig. 1. 


INITIALISE: 
Set up pointers 
etc 


GET THE FAR 
RIGHT CHARACTER 
STORE IT 


GET THE 
NEXT LEFT 
CHARACTER 


PUT IT BACK 
ONE POSITION 
TO THE RIGHT 
OF THE ORIGINAL 
POSITION 


GET BACK THE 
STORED RIGHTHAND 
CHARACTER 


PUT IT IN 
POSITION ON THE 
LEFT OF THE 
SCREEN 


<> 


This can be done by altering the 
initialising routine or POKEing 
the correct values to the pointer 
and then calling the program 
from #9808 like this: 


A=#FA: B=#BB 
POKE 0,A:POKE 1,B: 
CALL#9808 

or DOKE 0#BBFA 


should move the third line down 
across One position. Beware of 
getting into the two protected 
columns or into memory that has 
nothing to do with the screen. 


BAB 


Message 
line 
Location 


Now try changing line 6 to: 


Assembly machine code 
LDA 20 A9 20 


Given that 20 is the ASCII code 
for space, can you see what’s 
going to happen? CALL the 
program a few times and see if 
you got the expected result. 


Experiment with the program, 
very few changes will cause a 
leftwise scroll. Remember that 
the worst that can happen is a 
fatal crash which means that 
you ll have to power down and 
start again. 


Fig. 2. 


ee ee 


Paper & ink 
protected colums 
Fig. 3. 
Line Assembly Address Code Remarks 
1 LDA#AA — 9800 AX AA 
2 STA 00 02 85 00 
Initialise set up pointer 
3 LDA#BB 04 A9 BB 
4 STA 01 06 8501 
5 LDY#25 08 A025 Point to right of screen 
6 LDA (00), Y 0A B100 Get the character pointed to 
7 PHA 0C 48 And store it 
8 DEY 0D 88 Move pointer left 
9 LDA (00), Y OE B100 Getcharacter 
10 INY 10 C8 Move pointer right 
11 STA (00), Y 11 9100 Putcharacter there 
12 DEY 13 88 Move pointer left 
13 BNE F7 14 DOF7 Have we done whole line 
14 PLA 16 68 Y=0..Line done. Get stored character 
15 STA (00), Y 17 9100 Putiton far left 
16 RTS 19 60 Go back to basic 
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Fig. 4. 


Fig. 5 


* 
Bie rm 
Aaléglég Eg 
wQ B ° 5 9 E < E 
ga|\nalae ge 
2 al NalNa wn 
ADC 69 | 65 | 75 ADd with Ca: 
AND 29 35. ae AND 
ASL 06 | 16 Arithmetic Shift Left 
ft | 90 | Branchif Carry Clear 
[Bes | | BO | Branch if Carry Set 
BEQ [ FO [| Branchif EQua 
BIT 24 [|_| logical BIT 
BMI [30 | BranchifMInus 
[BNE | DO | BranchifNOTEqual | 
BPL aa (eect) [| 10 | BranchifPLus 
BRK ae a a ee [| BReak 
BVS ee oe ee oe sae 
BVS 70_| Branch if oVerflow Set 
+—t— ff ist CLear Carr 
r [ps east inter 
CLI t+ —J 58 
[CLV zt ae eee 
CMP [C9 ep EP PRL DY CT CoMPare 
aerate pert 
cpy | col cat {cc{] [Tf ComPare Y 
[DEC | | Co] Dé] CE] DET | 2] 
DEX +—J | DEcrementX 
DEY ey ae [| DEcrementY 
EOR | 49] 45 teeter PY 
Ni E6| Fol EE| F 
(2 a aa Ca (| Ca eee 
INY a ae (RY aa aa 
[IMP ae | JuMP(Indirect6C) 
Cas -astas app ppt ey Hart or] 
DA | A9| AS] BS] AD : B 
LDX | A2] A6] [AE] BET | 
| LDY | AOl A4] Ba] AC] BCT [LoaDY 
| USR [| 46] 56] 4E] SET | 
SC) a a a 
logical OR Accumulator 
| PHA | ccumulator 
| PHP | PusH Processor status word 
PuLl Accumulator 
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B22 ee ee PULI Processor status word 
FROR Tae ROtate Left 

| ROR | 66 | 76 | 
LRTI _| 
| RTS | [fT ReTurn from Subroutine 

E9 SuBtract with Carr 

| SEC | SEt Carr 

| SED | SEt Decimal 

| SET | SEt Interrupt 

STore Accumulator 

STore X 

STore Y 

Transfer Accumulator to Y 

| TXA || 


TYA 


BASIC Machine Code Loader 


20000 
20010 
20020 
20030 
20035 
20037 
20040 
20050 
20060 
20065 
20070 
20090 
20100 
20110 
20120 
20130 


INPUT “START ADDRESS IN HEX”; N$ 

IF LEFT$(N$) “#” THEN N$ = “#” + NS 

N=VAL(NS) 

CLS:?:2” LOCATION CONTENTS NEW CONTENTS” 
DOKE#26D,#BBF8:POKE623,24 

PRINT:PRINT 

REPEAT 

PRINT HEXS(N)” “HEX$(PEEK(N))” 

INPUT A$ 

IFA$=“EEE”THEN20120 


A$="*"+A$:A=VAL(AS) 

IFA 255 THEN PRINT” ONE BYTE AT A TIME!”:GOTO20050 
POKEN,A 

N=N+ 


UNTILA$=“EEE” OR N #B3FE 
DOKE#26D,#BB80:POKE 623,27 
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Transfer X to Stack pointer 
TRansfer Y to Accumulator 


Software 


Telephone Directory 
By M. Caldwell 


This program allows you to 
enter names and numbers into 
an array. It will fit into any 
model Oric but I don’t know if 
when the directory is full if it will 
fit into the 16K Oric. 


The program is menu driven. 
Here is a list of the options: 

(1) start a new directory. This 
clears the memory and allows a 
new directory to be inputed. 

(2) to view the directory. This 
displays the directory in alpha- 
betical order. 

(3 & 7) save on tape. This will 
save the directory on to tape, no. 
7 is at 300 baud. 

(4) to search for a name. With 
this you can enter part of aname 
or the full name. 

(5) to add more names. Allows 
you to add to the directory. 

(6) STOP. 


Note that options 2 and 4 must 
only be used if there is some- 
thing in the directory. 


When reloading the program do 
not use RUN, instead use 
GOTO 400, using this will not 
clear the array. 

Routines 

100-300 new directory 

300-400 Sorts directory in to 
alphabetical order 

400-600 The menu 

1000-2000 Searches for a name 
2000-2500 adds more names to 
directory. 


From now on a number will not 
be forgotten. 


Perhaps with a bit of thought this 
program could be changed to 
make, for example, a small data- 
base or perhaps a diary. I will 


leave you to think about that as I 
must go and phone my friend, 
. . . [wish I had put his number 
in my directory, what was it I 
wonder? 


Listing on page 31 
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Features 


Getting the Most from 
Oricbase 


Over the last few months, I have 
received a number of enquiries 
about using the Oricbase data- 
base program. 


Although the manual has been 
extended, Oricbase can still be 
difficult to understand, so this 
article will explain some of the 
features of the language. 


Syntax of commands 


Like all computer languages, 
Oricbase requires that the sen- 
tences you type be formatted in 
an exact way. One very common 
mistake is to leave out spaces 
between parts of an Oricbase 
sentence. Page five of the new 
manual does not help, since it 
shows the example "FIND AGE 
<31’ which should be ’FIND 
AGE < 31’. 


Quotemarks (”) should be put 
around any item that includes 
spaces, for example an address, 
when typing an Oricbase sen- 
tence. For instance: 
FIND NAME 
BLOGGS”. 


“FRED 


How to use FIND 

Used on its own, FIND looks 
through your file of information, 
marking the records found and 
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By Geoff Phillips 


determining how many fit your 
FIND criteria. 


After doing a FIND these 
records will remain marked, so 
that further Oricbase commands 
can make use of the selection 
made. 


AND allows you to find records 
in your file depending on two (or 
more) things being true about 
that data. AND can either be 
used with FIND, or as a later 
supplement to further restrict 
the records found. For example: 
FIND NAME > “RONAYNE” 
AND AGE > 45. 


OR on the other hand allows 
two (or more) different condi- 
tions to affect the records found. 
If, for example, you want either 
people who are less than 21 or 
who have a rating of 3, then 


type: 


FIND AGE < 21 OR RAT- 
ING = 3. 


It must be realised that FIND 
has a rather limited format, as it 
compares a field name to an 
actual value. FIND cannot use 
registers or compare between 
different fields. The following 
example is INVALID: FIND 
AGE > MAXAGE. 


BEGIN, 
ATRECORD 
and END 


These three commands are the 
source of much misunderstand- 
ing. 


The revised Oricbase manual 
gives an incorrect flowchart as to 
the use of BEGIN . . END, as it 
should show: 


(1) BEGIN occurring once. 

(2) ATRECORD being done 
for each record previously found 
by a FIND command. 

(3) END occurring once. 


The important one to look at is 
‘ATRECORD,’, or just “ATR’ 
which is followed by a variety of 
commands to be obeyed once 
for every record that FIND has 
selected. When simply updating 
the file, then MOVE is used, 
moving an actual value to one of 
the fieldnames. 


In other words, if we want to 
correct an error on a record, 
such as a new telephone number 
in a particular record, we must: 


Features 


(1) Do a FIND to identify that 
record. 

(2) Specify ATR 

(3) MOVE 12345 TO PHONE 
(update the telephone number). 


The FIND could be done as part 
of the whole sentence, or as a 
sentence on its own — this would 
have the advantage of providing 
the number of records found — 
we are expecting ONE in this 
example. 


BEGIN and END are used in 
the same way as ATR, but the 
commands that follow will only 
be executed once, at the start 
(i.e. before any records have 
been looked at), and at the end 
(i.e. after all records have been 
dealt with). BEGIN and END 
cannot use fields in the file, but 
only registers. They can of 
course PRINT information. 
BEGIN is especially useful for: 


(1) Printing Headings. 

(2) Setting registers to an initial 
value — for averages and totals 
perhaps. 


END is useful for: 


(1) Printing Totals, etc. 
(2) Ending a printed report. 


Worked Example 


Consider: 
FIND NAME < “SMITH” 
BEGIN MOVE 0 TO #41 


MOVE 0 TO #2 ATR ADD 1 
TO #1 ADD AGE TO #2 END 
DIVIDE #2 BY #1 PRINT 
“AVERAGE IS” #2. 


FIND looks for records who 
have the field NAME containing 
a value less than SMITH. 


BEGIN moves zero to two regis- 
ters. Register | is used as a tally 
of the number of records 
processed. Register 2 is used a 
total of all ages of the records 
selected. ATR starts of the 
record processing, where I is 
added to #1, and the age is 
added to #2. 


END specifies what is to be done 
after all records have been 
processed. At this point #1 con- 
tains the number of records 
found and #2 contains the total 
of all ages of those records. To 
print the average, therefore, we 
simply divide #2 by #1 (which 
leaves the result in #2) This is 
then printed, and the command 
is finished. 


Macros 
Having typed that previous 
example, and pressed 


RETURN, it is then possible, 
when the command is com- 
pleted, to save the sentence that 
you have just typed. Type 
MACSAV and RETURN, and 
then enter any relevant name 
that you associate with the pre- 
vious sentence (For example 
“AVERAGE’ or SELECT?) 


That macro will then be saved 
along with your actual file, when 
you next type SAVE. 


It is important to realise that 
MACSAV works on the last 
entered sentence, and NOT a 
forthcoming sentence. 


Hopefully, this article will have 
cleared up initial difficulties with 
the program. The only real way 
to get familiar with the program 
is to try out different commands 
— see the Glossary in the Oric- 
base manual. 


Editors Note: If you have written 
any interesting MACROS for 
Oricbase please send them to us 
for publication. 


RM MR MOK OK MOH HOF 


THE ATMOS 
IS NOW IN 
STOCK! 


In order to secure 
the new Oric 
Atmos 48K at an 
early opportunity, 
send a cheque for 
£170.00, made 
payable to Tansoft 
Limited, Unit 1, The 
Techno Park, 
Newmarket Road, 
Cambridge, CB5 
8PB and we will 
return your 
computer without 
delay 


OO OR OO ORO OO OH 


KkKK KKK KKK 


OO OO OO OR OR OR OO OO OO OH OH 
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No = eet 


CO TAIN 

A a \ ‘Z THERE'S NOT 
ENOUGH TIME 

—- KA TO MAKE ANOTHER 

EARCH THROUGH 

THE CATACOMS 


SUPPOSE HAVING 
WON THEM 1 


THESE g00TS 
MUST BE THE 
ALENTS I'M 
SEARCHING 
FOR 


mee < ; 
yuE EVE oe fe Q 
hele Ladaeanlll 


| ae — rr a a a a fata. 
a ST AT PITT AIO EE 7 


De | 
AND IT MOVES 
SO FAST 


OLTEN SILK 
FROM ONE OF ISSPPOLS LEAVING HIM A MERE 
SPLNNERETS CATCHES UNTALENTED MAN AGAIN 
our HERO'S NEW 


IN THE TUNNEL 
sYysTeEmM 


Sy, 


ORIC SEEMS 
O BE TAKING 
INGS EASY 
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The following are corrections 
for programs in issue 4. 


Torpedo Attack 

Line 780 should be PLOT 
X,C,124. 

Lines 3500 onwards: as far as I 
can see X will never be false so 
its presence in the conditionals is 
superfluous. 


3D Bar Chart 

Line 50: Colon missing between 
print and ‘input statements. 
Line 630: a comma appears from 
nowhere. 

Line 5060: there’s a square 
bracket instead of a round one. 
Line 5100: there’s a comma 
instead of a colon. 

There are X’s for *’s throughout 
the program and S’s for $’s in 
places. 


Agrenon 

The line that is numbered 31002 
should be 31030. As it is it causes 
an Illegal Quantity Error in your 
moment of triumph. 


Character Generator Program 
The semi-colons on lines 340 and 
350 want losing. 


Figures 
Line 150 should read: 150 
DRAW X1—X+5,Y1—Y+5,1 I 
think. 


“Frog-Run” and “Word-1” had 
the following printing errors in 
them: 

1/2 should be < 

3/g should be > 

'/, should be 7 


What are Softbacks? 


Softbacks are NEW programs for your computer. 


For running a home, club or small business . . 


Account Book - The money management program. 
Budgeting and record keeping by automatic double 
entry. Produces reports on screen or printer. 


Easy to use and menu driven throughout. 


And for the younger user... 


Story Book - a challenging game that develops 
reading skills. Suitable for any level from early 
reader onwards. You choose the text, the game is 


to reconstruct it by guessing the words. 


Picture Book - A colourful spelling game for 
young children, Build up pictures by typing words 


and seeing the objects appear "by magic". 


Softbacks replace books! 


ee >< 


To: SOFTBACKS, PO Box 257, Watford, WD1 3LQ. 


Please send: ACCOUNT BOOK ....... £9.95* {] 
STORY BOOK  .wewews £4.50* [ ] 
PICTURE BOOK ....... £4.50* { ] 
Further details (I enclose sae) [ ] 


DEDUCT 50p from total for more than one program. 
I enclose cheque payable to Softbacks for &£...... 
My ORIC is 16K [ ] 48K [ J 

NB. Account Book is for 48K only. 

NGG! sc: ers 2 bev: oce: ere Bee 6 Vw oo eI bw Ole) wl a9 8 Greats omer se 


Cee e eer er erereseeseseseseseeeeseereseesereseseseee 


Cee e ese reser eerweesreseseserereeeeeesesneressesesceee 


* INTRODUCTORY PRICE applies until 30th April. 274 
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Features 


Parallel to RS232C 


interface 
By P. J. W. Cooper 


One shortcoming of the Oric is 
that it has no serial printer inter- 
face. This is not usually a prob- 
lem unless a serial printer is the 
only machine available. This cir- 
cuit was designed to convert the 
signals available at the Oric 
printer socket into signals suit- 
able to drive an RS232C serial 
printer. 


The term RS232C defines a 
serial interface system that has a 
range of uses, including 
modems, printers and V.D.U’s. 
Interconnections are made via a 
25 way ‘D’ type connector with 
the socket at the computer end. 
The most commonly used pins 
are shown in Fig 1, together with 
their abbreviations. 


The data sent to the printer on 
Pin 3 will be in serial form. The 
order in which the code is sent is 
illustrated in Fig 2. The first bit 
transmitted is always the start 
bit. This is followed by seven 
data bits (least significant bit 
first), and the parity bit. The 
parity may be odd or even 
depending upon the standard in 
use, and its purpose is to enable 
simple transmission errors to be 
detected, by making the total 
number of logic ‘1’s odd or even. 
Finally, 1, 11% or 2 stop bits are 
transmitted, which leaves the 
line ready to pass the next char- 


acter code, beginning with it’s 
start bit. 


Handshaking is utilised via Pin 4 
on the connector, entitled 
request to send (RTS). This 
allows transmission when set at 
logic high (1), and is the only 
form of handshaking provided 
for in this design. 


Design 


The interface design is based 
on an Intersil universal asyn- 
chronous _ receiver/transmitter 
(UART) integrated circuit. This 
one chip does all the work of 
coding data into serial form and 
vice versa. The only extra cir- 
cuitry required are a clock oscil- 
lator, RS232 level converters 
and an acknowledge (ACK) 
pulse generator. The interface 
circuit, which uses only half of 
the UART chip, is shown in Fig 
4, 


Full use of the UART chip could 
be used to implement a two-way 
communication link (via a 
modem?), but this would entail 
incorporating the UART into 
the memory map of the Oric, 
and some extra software would 
be needed. 
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Operation 


The operation of the printer 
interface is briefly as fol- 
lOWS.. ss 


When data is required to be 
sent, the printer strobe line 1s 
pulsed low. The character code 
is then latched off the parallel 
printer data lines, and stored in 
the transmit buffer register of 
the Uart. It is then automatically 
sent, along with start, parity and 
stop bits, from Pin 22. As the 
serial transmission rate is likely 
to be much slower than the 
normal workings of the com- 
puter, the generation of the ack- 
nowledge pulse is delayed until 
the transmit buffer register is 
empty (TBRE goes high). The 
two operational amplifiers do 
the necessary level conversion. 


The Baud rate is selected from 
the various rates available by 
connecting the appropriate out- 
put of the 12-stage counter to the 
clock input of the Uart. The 
clock frequency runs at 16 times 
the Baud rate. 


The transmission standard used 
by the Uart is determined by the 
insertion of various straps, Fig 3 
shows the combinations avail- 


Features 


Fig 1 RS232 Connector (Relative to Printer) 


Pin | Signal | 
Number Abbr. Description Direction 

1 Protective GRND 

2 TD Transmitted data O/P 

3 RD Received data 1/P 

4 RTS Request to send O/P 

5) CTS Clear to send 1/P 

6 DSR Data set ready 1/P 

7 Signal GRND 

8 CD Carrier detected 1/P 


Fig 2 


Word Format 


mK wy 1,1.5 OR 2 
=4 Z , 
42 CTS BLES =i STOP BITS 
5 5 
iad 
*IF ENABLED 
Ld | 
Fig 3 Transmission standard selection 
Character 
length 5 6 7 8 Bits 
CLS1 L H L H 
CLS2 L L H H 
Parity Selection 
Character length selected PI EPE! Effect 


SBS 1/P 5 BITS 6,7 OR8 BITS 


Odd Parity 
Even Parity 
Parity Inhibited 
Parity Inhibited 


STOP 
1% 2 BITS 


cece 
yeoe 
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Features 


Fig 4 See large circuit diagram 


Fig 5 Connecting Cable 
(Interface to Printer) 


Pin Definitions (IC3) Table 1 
Vcc +V Supply 


N/C No connection 


GND _— Ground 
RRD _ Receive register 


disable 
RBR 1|-8Receive buffer 
register outputs 
PE Parity error 
FE Framing error 
OE Overrun error 


SFD Status flag disable 

RRC _ Receive register clock 

DRR Data received reset 

DR Data received 

RRI Receive register input 

MR Master reset 

TBRE Transmit buffer 
register empty 

TBRL Transmit buffer 
register load 

TRE _ Transmit register 
empty 

TRO _ Transmit register 
output 

TBR 1-8 Transmit buffer 
register inputs 

CRL Control register load 

PI Parity inhibit 

SBS Stop bit select 

CLS 1-2 Character length select 

EPE Even parity enable 

TRC Transmit register clock 
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Software 


And Forthly. . . 
“Screen Dump” 


When using a computer in either 
an immediate mode for one-off 
calculations, or programming 
mode, there is nothing more 
frustrating than finding you have 
a screenful of data, answers, 
results, etc. and have to resort to 
writing out the information. A 
much more useful, professional 
and accurate method is to dump 
the contents of the screen direct 
to the printer. Most computers 
and languages lack this facility 
and Forth is no exception. This 
program overcomes that limita- 
tion by allowing the Text screen 
to be compiled by the printer in 
immediate or program mode. 


For those as yet unfamiliar with 
Forth I will detail the workings 
of the program. 


In order for the definition to 
work, screen one of the option- 
screens supplied with the ORIC- 
Forth package should first be 
loaded and compiled. A 
reminder to this effect can be 
seen in line one when the pro- 
gram is listed. 


Lines 2 and 3 contain two 
machine code words called 
“KEYON” and “KEYOFF”. 


These overcome the tiny bug in 
the ORIC, which causes an odd 
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By K. W. Griffiths 


character to occasionally appear 
from the printer, by switching 
off the Keyboard-scanning rou- 
tine (the cause of the bug) when 
printing is in operation, and 
switching it back on when print- 
ing has finished. Of course this 
problem doesn’t occur on the 
Atmos and so these words can 
be ignored. 


Lines 5 and 6 set up four 
important variables which will 
be used in the definition; they 
are; 


Screenstart 
Linestart 
Line-end 
Screen-end 


initially set to 0 
initially set to 2 
initially set to 38 
initially set to 49119 


Line 7 starts the definition. 
DUMP is the title of the defini- 
tion. PON switches the printer 
on, the definition for which 
appears on _ option — screen 
one mentioned earlier, and 
KEYOFF switches the 
keyboard-scan off. SCREEN- 
START is initially set to 48040 
(the start of the Text-screen 
location) and a BEGIN-UNTIL 
loop is then started. 


The screen of course is 40 
columns wide, the first two 
however contain information as 
to background and foreground 
colours. This program prints 
only what is in the next 38 


columns in each line, i.e. it 
ignores the first two. 


After the word BEGIN, a char- 
acter space is output to the 
printer (the reason for this is that 
the ORIC printer is normally a 
40 column printer and with 
information appearing only on 
the last 38 columns, the hard- 
copy would look slightly out of 
balance, therefore I have 
included one space before the 
printing of data starts and one 
space after it has finished on 
each line to balance the print- 
out). 


The variable SCREENSTART 
is now placed on the stack 
(48040) together with LINE- 
START (2) and LINE-END 
(38). All three are added 
together leaving a value of 48080 
on the first line of the screen. 
SCREENSTART (48040) and 
LINESTART (2) are again 
placed on the stack and added 
together leaving (48042), the 
first column of the first line of 
the screen, which we wish to 
print. We now have two values 
on the stack in the correct order 
fora DO-LOOP. After the word 
DO the word I appears which 
places the loop index on the 
stack. C@ fetches the byte from 
that address and places it on the 
stack. DUP duplicates this item 
so that we have two copies of the 
value. 32-is then placed on the 
stack. < is used as a comparison 
to see if the second value down 
on the stack is less than that of 
the top one. If it is it implies that 
the value at the appropriate 
screen address is not a printable 
character but a control character 
(i.e. change of foreground col- 
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our, etc.) and the program en- 
ters an IF-ELSE-ENDIF struc- 
ture and prints a blank space on 
the paper. If it is not less than 
the top value it progresses to the 
ELSE part of the structure and 
merely takes the value now left 
on the stack and prints it using 
EMIT. (i.e. if it finds the value 
65 it will print the letter A). We 
then reach the word LOOP 
which now returns to the word 
just after DO to continue print- 
ing the rest of the line unless it 
has reached the end of the line in 
which case it prints the second 
blank space to help with format- 
ting on paper as mentioned 
earlier. SCREENSTART, 
LINESTART and LINE-END 
are all added together as previ- 
ously but this time the value is 
stored back into SCREEN- 
START thus giving a new start 


position (i.e. the next line 
down). This value is again 
placed on the stack and 
1 is subtracted from it. 


SCREENEND is placed on the 
stack and we now have two 
values: the bottom one being the 
start of the next line —1 (i.e. the 
end location of the previous 
line) and the top one being 
49119, the end location in 
memory of the screen. They are 
compared using the word =. If 
they are not equal the procedure 
is repeated to print-out the next 
line. If they are equal printing 
has finished. A carriage return 
then takes place with 13 EMIT 
(13 being the control character 
for a carriage return), KEYON 
switches the keyboard scan back 
on and POFF turns the printer 
off. 


late mode simply type DUMP 
and whatever is on the screen 
will immediately be printed out 
on paper. The program can also 
be used in your own programs 
either by including the word 
DUMP on its own or by includ- 
ing it in an IF-ELSE-ENDIF 
structure which you might like to 
print a prompt on screen such as 
“HARD-COPY Y/N?” and wait 
for your response 1.e. yes or no. 


The routine was written for the 
“ORIC-1 MCP-40 4° colour 
printer” and any other standard 
printer. 


r 


Important Note 
to all 
Oric-Forth 
users 


We are constantly 
searching for Forth 
programs and articles, 
particularly tutorial ones, 
to print in the magazine. 
So if you have written 
something using Forth, 
even if it is just a small 
utility or hint we would 
be delighted to hear 
from you. 

A number of people 
have asked us where 
they can get further 
information and help 
using Forth. | would 
strongly recommend the 
Forth Interest Group 
(F.1.G. UK) who can be 
contacted at 24 Western 
Avenue, Woodley, 
Reading, RG5 3BH. 
Annual subscription is 
£7 and is well worth it. 


Oric Owner 23 


Features 
And Forthly .. . Listing 


a (e) O Zz w~ x mo (cs) — 
ip | Lu bo (‘S) x Lu te ke res aa 
ce] ce) > aD pa | a Cp) ud Q Zs 
° x n Liu jaal x uu Le ci 
ot vy N x t Zz Lu lu 
ON n ioe! aad icp) — (ga) | i 
a Lu . t ~ Zz paca | Pa Lu 
oc. = g oO Mee ~ x lu Lu Zz eS 
(= N x aa x => Lu (c-)] 4. 
3 lw a ° = (a4 - ea Q 
cq Zz ©) - 9) (op) O be m Ls 
oO (oA ols cl WY w~ L ic} Lu 
i . jes) Ce) uu al - x ui ra 
az N oO uu top) VN wv kK kK Lu 
> UW © +r o w~ 5 ig ws ep) N ~ Lu 
c lu ee) es) C3 QrE oa mM ca a4 
- © wn 21 op) Q ow uu b Cc) 
+ O Mw « ea Zs ae Lu Le on ee) 
awn oO © uu jeu uu ~ = Lu 
En 2 ° =< | i, Let (3) Z. ! 
eoZoak 32 ® o -M@ Lu wMe C9) Vv lu oa 
ke Cd = wm » € £ Zs oe a = al 
— -~ nNnmu wore as - a N a 
ch @ Ww Cy Ne ~ pel lu ic) OY @ (c-)] co] ws as. 
aqaoae¢eYr «2Q ce « lu + op) - — 
yvQo Old! soDFe uw Ok Qa ee & Le. ~ 
- UE ASE a ro) eae Zacevse —) = YoY ts 8) 
Oo0wrwrlW Mi Oe cm © @. < ca Ge G eo) LL 
o. OO & — KE AM Le ec awe a Qu re Or iG: | 
bas 37 cu @ “O70 JIM GQ). Z eo 9 a sian OP) oO 
mee Panorn TY Lu -~- +- awe arm wW WwW to f3 Ze tad Ze x m 
ea x c OQrerw sk Zzca = | zl ld Ww lr Oo uh 
vou @w Le vor ae 2a Za Z = lw Lome) ut &% Le > 
ee ak +xnust ro a a eee | lis Cl et 2 Le Y~Yoreruw 4 
uu z. Y¥Y¥ oWwnmrvad ay tal oe 2. oO — + Ow OnoowxvwM | 
uu ld vw Se) Ct a YaowMNwWw We _J Oa 169) C9) “s O 
~ uu wv SP " x a) uu jaa} ic) a + © a 
O YAO DN ae) t+ mwmanorv nr a om OS ti = WS Onrwsr nN ~ 
cal Ch " tg) il x =| ee aot t+ a io) 
oa) vu m m cp) oO mw a wil 


SK SECTOR 7 SOFTWARE 


A VERSATILE MUSIC PROCESSOR 
for the ORIC 48K 


TURNS YOUR ORIC 
INTOA 
MUSICAL INSTRUMENT 


Fast-action classic arcade game 
108% Machine-code 

8 different alien squadrons 
Hi-score tabie 

Full colour high resolution graphics 


AND HELPS YOU 
TO COMPOSE YOUR 
OWN MUSIC 


seen 2 


You are the commander of 3 heavily-armed starships 
defending your sector from waves of attacking alien spacecraft Includes: 

from the war-fleet of the Cirellian Empire. graphic music editor, play, 
When all 8 squadrons have been destroyed, another wing moves Cassette-save and sample tunes. 
in to the attack, 


* COMPETITION * 


ORIC MUSIC COMPETITION 


First Prize £100.00 
Second Prize £50.00. 


poner ine Bein a tia se cd =e ze Will be awarded for the most entertaining piece 
GAMESPACK 48K (7 games) pia £7.90 of original or arranged music, produced using 
GAMESPACK 16K (5S games) .......... £5.95 COMPOSER. 


Details on cassette insert. 


3 part harmony, any key, 3/4 or 4/4, up to 80 
bars, full control over sound and speed. 


Send cheque or P.O, to SECTOR 7 SOFTWARE, P.O.BOX 8, 
NEWTON ABBOT, DEVON. 
Trade enquiries welcome Tel: 06267-4504 


24 Oric Owner 


News | 


New Products Review 


Oric Atmos 


Just as we were going to press, I 
managed to get hold of Oric’s 
latest offering-—the Atmos. 
This has been such a well kept 
secret that half of Oric’s own 
staff knew nothing about it and 
even I was suprised by its 
release. Although rumours have 
been floating about for some 
time concerning the new Oric 
ROM, I did not expect them to 
launch a new machine to go with 
it. 


When I say ‘new machine’, I 
should really say ‘new model’ as 


what Oric have done is to listen 
to what the critics have been 


saying about the existing 
machine and to apply this infor- 
mation in a constructive way. 


The first thing that you notice is 
the keyboard, which has been 
upgraded to a full moving key 
mechanism. This is a_ great 
improvement on the old key- 
board, (which itself was far 
superior to the Sinclair rubber 
membrane) and means that the 
machine can be considered for 
serious word-processing (how 


about an 80 column screen next, 
please!) and even more signifi- 
cantly, at a stroke, wipes out any 
competition from the Commo- 
dore 64 and Acorn Electron on 
that count. The layout is iden- 
tical to the original model except 
for the addition of an extra key 
labelled “Function”. If pressed, 
in command mode or in a pro- 
gram, the key is ignored but 
clever programmers can access it 
through machine code by read- 
ing the keyboard matrix 
directly. This would allow it to 
be used for any desired function 
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by the programmer and perhaps 
later Oric Software would make 
use of it. 


Now we come to the most excit- 
ing part of the machine — the 
new ROM. This announces 
itself on power-up as version 
V1.1 and is a souped up version 
of the standard V1.0 ROM. The 
first thing you notice is that 
screen handling is about 30% 
faster which means that if you 
listed a program on the old 
ROM, it would glide in a stately 
fashion up the screen, on the 
new ROM it scrolls just too fast 
to be readable and so you have 
to keep pressing space to freeze 
the listing. I also noticed that 
cursor always appears two posi- 
tions in on the screen instead of 
at the far left. This saves the 
cursor have to skip over the first 
two protected positions every 
time a new line is begun. 


All the original commands are 
still present and a couple more 
have been added. More impor- 
tantly, virtually all of the bugs 
have been corrected. This 
means that TAB now works 
properly and the printer no 
longer prints spurious charac- 
ters. More obscure problems 
such as with ELSE and VAL/ 
STR$ have been cured which 
allow you to program with much 
more confidence. 


Most of the changes and 
improvements will be found in 
the cassette systems. Firstly, 
there are two more letters which 
can be added to the CLOAD 
command. V will verify a speci- 
fied program on tape with one 


already in memory. Any differ- 
ences will be counted and prin- 
ted at the end. J will join a Basic 
program on tape with one 
already in memory although you 
do have to be careful with line 
numbers. Whether you are 
Loading, Verifying or Joining, if 
a file is found on the tape which 
is not the one you are looking 
for, it’s name is flashed up on the 
top of the screen instead of just 
being ignored. If there are any 
loading errors, you are told at 
the end and the system will try to 
re-link a faulty program rather 
than just print up a screen full of 
U’s. 


Two commands have been 
added to handle cassette data. 
These are STORE and 
RECALL which allow you to 
dump and load from arrays. For 
instance, if you have an array 
called A$, you could save it on 
tape with: STORE Ag, 
“FRED”,S which means store 
the array A$ on tape with the 
filename FRED at slow speed. 
Conversely to read it back you 
would enter: RECALL B$, 
“FRED”,S which means read 
the file FRED from tape into the 
previously dimensioned array 
B$ at slow speed. If the array B$ 
has not been created, you will 
get an error message. Although 
these commands, to my mind, 
are not as useful as full record 
handling commands, they are a 
vast improvement on what was 
previously available, i.e. Noth- 
ing! 


There is a slight problem reading 
tapes created on old Orics as the 


new ones expect slightly more 
information in the tape header 
and sometimes give an error if 
they don’t get it. One useful 
improvement is that you can 
load and save from within a 
program without dropping out 
of it at the end. Also if you save a 
Hi-Res screen, you don’t get the 


‘SAVING’ message scrawled 
across it in graphics. 
Other improvements include 


PRINT @ (pronounced ‘Print 
at’) which allows you to print at 
any required X,Y co-ordinate 
on the screen, and POS which 
will now tell you the position of 
the cursor on the screen or the 
print head of your printer. Vir- 
tually every bug I could think of 
has been corrected including 
POKE which did not like Hex 
numbers and FILL which did 
not update the cursor position 


properly. 


So, all-in-all, the Atmos is every- 
thing the Oric owner has 
dreamed of for the last year. The 
only thing I am not certain about 
is Oric’s policy concerning exist- 
ing owners who wish to upgrade 
their ROM’s to the new version. 
It should be noted that many 
machine code programs written 
on the old machine will not 
function properly on the new 
machine due to changes in zero- 
page usage and ROM locations. 
It may be wise to check before 
buying which version machine a 
tape has been designed for. 


By 
Paul B. Kaufman 
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TansorT 


inc. V.A.T. post ree 


N 


m all Oric dealers and 
most good software suppliers. In case of difficulty 
please contact us on Teversham (02205) 2261 or write to us at: 


ae, ae 
Tanmsorit 
Unit 1 & 2, Techno Park, Newmarket Road, Cambridge 


A rubbish bin for your old 
has been. 


Mi Believe it or not, computers often suffer from amnesia. 

99% start off with large enough memories, but operating 
functions like text, colour, sound and more particularly high 
resolution graphics, take large bytes out of them. Leaving very 
little “useable” memory for programming and games. 

Not so the new Oric Atmos 48K. 

This is the one home computer that takes these normal 
working functions in its stride. 

Unlike other home computers it uses the highly sophisticated 
serial attribute handling method used by Viewdata and Teletext, 


Yet more money 


bolt 


in which the attributes are stored on the screen alongside the data, 
instead of taking up space in the memory. 

Thus the Oric Atmos never offers less than a healthy 37K 
of useable memory - even when the new colour printer and disc 
drive unit are attached. (Technical buffs see details overleaf). 

So it rivals the performance of the supposedly larger, more 
expensive Commodore 64K, which unfortunately loses 26K of its 
“elephantine” memory in high resolution graphics. 

It beats its immediate competitors like the Sinclair Spectrum, 
Dragon 32K, Vic 20 and Atari 600. 


BS Vn OS. 


DEFENCE FORCE Pilot 
your space-craft through 
hostile alien territory, fight 
off the enemy coming at 


you from both sides. £7.95 


inc. VAT—48K. 


ULTIMA ZONE A 100% 


machine code space 
trilogy—shoot the 
Walkons, avoid the 
bouncing Brunes, battle 
your way through the 
satellite zone. £8.50 inc. 
VAT—48K. 


ORICBASE A complete 
database system—use it 
as an electronic filing 
cabinet. A sophisticated 
query language allows 
you to search and sort 
your data, keep running 
totals and print reports 
Includes manual 


£14.50 inc. VAT—48K. 


ORIC-CALC A full spread 


sheet program allows you 


to enter data sum columns 
or rows and apply complex 
formulae. Change one item 


and watch how all your 
other figures are affected 
Includes manual 

£14.50 inc. VAT—48K. 


ORICMUNCH Munch the 
bugmonsters and eat the 
power pills, clear the 
maze to reach the high 
score. £7.95 inc. 
VAT—16K or 48K. 


SUPER-ADVANCED 
BREAKOUT An excellent 


version of this popular 
arcade game. Features 
normal and progressive 
modes and selectable skill 
levels. £4.50 inc. 
VAT—16K or 48K. 
ales 


Ss 


RAT-SPLAT A truly 
revolting game! Chase the 
rats down the sewe’s, 
splat them with your 
hammer, spray the 
monsters with your aerosol 
can, and rescue the 
cheese! £7.95 inc. 


AUTHOR A powerful! 
word-processor program 
which includes word-wrap 
and word count. Ideal for 
reports or letters. Full 
control over tabs 
formatting etc. Includes 
manual. £14.50 inc. 
VAT—48K. 


Ss 
to Zodiac \ 
he secrets Wy 


house : 
witch and the axe ' 
rdere! nd com 
pect with incredible 
_ inc 
treasures 99 
VAT— 


Please note: All Tansoft software is compatible with both tt 


truly 


Chase the janguage 
pwers Gruneberg Link-Word 

Aste methoc 

ine Sp Italian German 
our aerosol d 

2 the 


D Computer 
Aided Design for your 
ay an object On 


K PUZZLE The 


f the screen 


£6.90 inc. 

CT a8K. for a more 
challenging game 
¢9.99 inc. 
VAT—48K. 


FORTH A full 


D implementation of 
the twelV py ning! this exciting new 
aiee unningly computer \anguage 
disguised signs © \ncludes editor an 
the zodiac which will assemble! plus 
lead you to six anquage 
treasures Full extension 
uzzles, puns and Includes manual 
misleading clues 15.00 inc 
Please state wheth 
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ible with both the Oric-1 and Oric-Atmos Computers 


The new Oric Atmos re-affirms Tansoft's heart-felt 
belief that the only justification for the support of 
one home Computer is that Oric has the recipe for 
unrivalled success. 

Furthermore, with the recent introduction of the 
4-colour Printer and Micro Disc Drive, the Atmos 
now gives you full system capabilities. 

Pick up the Oric hardware brochure and see 
why Tansoft is totally devoted to you! 


Prices 


Oric Atmos 16K T.B.A. 

Oric Atmos 48K £170.00 
Oric 4-colour Printer £150.00 
Oric Micro Disc (with interface) £260.00 


Printer Pens (set of 4 colours) £3.99 
Printer Rolls £1.99 each 


One issue is free with your Oric. The other 

The Oric Owner bi-monthly magazine is the issues may be purchased from your Oric stockist. A 
most important publication for enthusiasts of the year's subscription of 6 issues is available from 
Oric. It has the manufacturer's blessing because it Tansoft at only £10.00 (£15.00 overseas). Can 
caters for every interest. So you can expect to find you imagine life without it? 
the latest developments and new releases, ‘behind All the products in this catalogue are available 
the scenes’ interviews with the V.I.P.'s, answers to from your nearest Oric stockist. In case of 
those irritating technical problems, program difficulty, you may order directly from Tansoft at 
suggestions and much, much more! the address shown below. 


n> ew az 
Tansoft Ltd., 
Z UH OV. ect ia Units 1 & 2, Cambridge Techno-Park, 
Newmarket Road, Cambridge CB5 8PB 


It beats the Lynx 48K,which costs over a third more, 
yet loses 34K. 

It even beats the Acorn Electron and the BBC Micro which 
costs more than twice as much, yet loses 23K in high resolution 
graphics. 

And while this may surprise you, it's totally in keeping with 
a company recognised in the computer industry for performance 
and innovation. 

Like its predecessor, the Oric-1, the Oric Atmos has the 
powerful loudspeaker and amplifier unit that prompted “Which 


The new Oric Atmos 48K. 


Micro” (November issue) to comment...“lts sound facilities have 
more in common with those of the £400 Beeb, than the rather 
pathetic beep of the Spectrum. At full volume it can compete with 
most arcade games..: 

Yet the Oric Atmos 48K costs a mere £170, including all the 
leads and adaptors you need to get it going. 

So if: you're buying a computer, remember our name. We 
could save you a fortune on bolt-ons... or wastepaper bins. 


DRIC 


The new Oric Atmos 48K. 


Now weve whetted your appetite, 
here’s something to get your teeth into. 


Printer Atmos Micro Disc 


Technical Specifications 


Technical Specifications 


without clearing program or 
data 


Technical Specifications 


Prices and data correct attime of going to press 
Specifications on the above model 


Printer/ Ball Point Pen,4 colour CPU 6502 A Formatted 160K bytes per side (double 
Plotting Memory Choice of 16K or 48K RAM Capacity density as standard) 
Sysiem Memory Minimum 48K RAM, max 64: No. of 40 (80 available as option ata 
Plotting speed: (48K Model) 16K ROMexternal control Tracks future date) 
ear 52 mm/sec Pa Biba signals allow use of full 64K No. of 16 
vertical) 73 mm/sec (3.08ips or maybe used externally Sectors 
Printer 12 characters per second to increase ROM/RAM Bytes per 256 
Speed Language Extended Microsoft basic Sector 
Resolution 0.2 mm/step (0.00787 inch) Keyboard Typewriter style and pitch, 57 Transfer 250K Bits/Sec 
Effective 96 mm (3.804 inch) x axis, keys, standard computer layout, Rate 
plotting divided into 480 steps. (No limit additional cursor control keys, Supports up to 599 files per side, four drives single 
range in y direction) autorepeat facility, tactile and or double sided, 40 or 80 track, User definable 
Characters 80 or 40 text mode (determined acoustic feedbac configuration allows mixing of drive types 
per line by software in graphics mode) Display viet for B&W or colour TV, including 5 1/4" (five and a quarter inch) 
Choracters INT (480/n-+1) *6) RGB output for colour monitor. Extensive wild card facilities | 
per line forO=n=15 Text format 40 line x 28 rows Copy allows merging of basic and machine 
Accuracy Character Similar to Teletext format, code files 
repetition) 0.2 mm max set standard ASCII double height, Utilities 
movement) = 0.3mmmax flashing, 80 user definable The Utilities are as follows: 
distance) 0.5% max (x—axis) characters 1. Backup Copy a whole disc 
1% (y—axis) Graphics 240 x 200,8 colours 2. Copy Copy a file to another 
Pen life aoe meres ieee feel) Graphic Points, lines, circles 3. Del Delete a file allowing wildcards 
Parallel 8—bit parallel Uses STROBE Facilities 4. Dir Display directory lictn 
interface and ACKNOWLEDGE Sound Internal loudspeaker and : ea dsp 
-¢. 5. Drv Set the default drive number 
Temperature amplifier. 3-Channel sound Dats ; 
range 18.3 to 35°C (65 to 96°F) synthesiser envelope control, 6. Format Format and initialise a disc 
storage —40 to 71°C (.40 to 160°F) amplitude control 8 octaves, 7. Load Load a file (code data or basic) 
Humidity ] sd 80% relative non- . fs channel ce 8. Protect Change protect status of file 
range condensing torage ost cassette recorders via 9. Recall Recall a basic array from a file 
Power pie power supply input DIN socket 300 or 2400 BAUD. 10. Ren Rename a file 
supply 100— 120 VAC Diners 11. Save Save a file (code, data or basic) 
200-240 VAC Interface Centronics, expansion port, ; : J ; 
Oinamions  10iwids Hi-fi, RGB Monitor, UHF TV, 12. Store Store a basic array asa data file 
674" deep cassette recorder 13. Sys Change system configuration 
212" high Other Warm reset to regain control 


Is may change without notice. 


Available at Dixons, Laskys, Comet, Wigfalls, Rumbelows and all good computer stockists. 
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3283 


PRINT: PRINT"5)TO ADD MORE NAMES" 

PRINT: PRINT"6)TO STOP" 

PRINT:PRINT"7)TO SAVE DIRECTORY ON TAPE AT 300B" 
PRINT: PRINT" ENTER THE NUMBER NOW" 
GETZS:1IFZS<"1L"ORZS>"7"THEN500 
IFZS="1"THENCLEAR:GOTO1@O 

IFZS="2"THENGOTO 300 

IFZS="3"THENCLS:PRINT"PRESS ANY KEY WHEN READY 
TO SAVE":GETZS:C SAVE"DIRECT." 

IFZS="7"THENCLS: PRINT"PRESS ANY KEY TO START": 
GETZS:CSAVE"D",S 

IFZS="6"THENCLS: STOP 

IFZS="4"THENGOTO1O0@ 

IFZS="5"THENGOTO2000 

END ea 

CLS 

PRINT:PRINT"YOU MUST ENTER THE FULL NAME OR JUST" 


PRINT: PRINT"PART OF IT EG SMITH COULD BE ENTERED" 
PRINT: PRINT"AS SM.INPUT NOW" 

INPUTLS 

M=LEN (L$) 


FORD=1T038@ 

IFLEFTS (AS (D) ,M) =LSTHENPRINTAS (D) 

NEXT:GOTO1119 

PRINT: PRINT"PRESS ANY KEY TO RETURN TO MENU":GETZS 
GOTO488 

CLS 

FORD=1T0O300 

IFLEFTS (AS (D) ,1) <CHRS (65) THEN20490 

NEXT 

FORZ=DT0O38@6 


INPUT"NAME"; BS 

INPUT" TELEPHONE NUMBER";CS 

CLS 

PRINTBS+" ";CS 

PRINT: PRINT"IS THIS CORRECT? Y\N" 
GETZS 

IFZS="N"THENGOTO 2050 

AS (Z)=BS+" -"+CS$ 

CLS 


PRINT"PRESS ANY KEY TO ENTER NEXT NAME OR" 
PRINT: PRINT"PRESS ESC TO END INPUT AND TO SORT " 


PRINT: PRINT"THE DIRECTORY ." 
GETZS$ 
IFZS<>CHRS (27) THENNEXTZ 

GOTO 3098 
3 STOP 


1 CLS 
2 GRAB 
5 GOTO48G 


106 
118 
126 
136 
146 
159 
168 
170 
180 
196 
280 
210 
226 
238 
2468 
268 
276 
386 
365 
310 
320 
336 
348 
345 
356 
355 
368 
365 
3768 
315 
376 
386 
385 
396 
395 
408 
465 
418 


420 
436 
446 
458 
468 


REM START NEW DIRECTORY 
DIMAS (386) 

FORD=1T0308 

INPUT"NAME"; BS 

INPUT" TELEPHONE NUMBER";CS 

CLS 

PRINTBS+" ";CS 

PRINT:PRINT"IS THIS CORRECT? Y\N" 

GETZS$ 

IFZS="N"THENGOTO13@ 

AS(D)=BS+" "+cs 

CLS 

PRINT"PRESS ANY KEY TO ENTER NEXT NAME OR" 
PRINT:PRINT"PRESS ESC TO END INPUT AND TO SORT " 
PRINT: PRINT"THE DIRECTORY ." 

GETZS 

IFZS<>CHRS (27) THENNEXTD 

REM DIRECTORY SORTED 
FORD=1T0300:IFLEFTS (AS (D) ,1) <CHRS (65) THEN310ELSENEXTD 
CLS 

B=0 

G=D 

Z=1 

B=Z+1 

IFB>GTHEN 380 

IFAS (B) >AS (Z) THEN365 

Z=Z+1:GOTO345 

QS=AS (Z) 

AS (Z) =AS (B) 

AS (B) =Q$ 

GOTO 360 

PRINTAS (G) 

G=G-1 

IFG>@THENGOTO 340 

PRINT:PRINT"PRESS ANY KEY TO GOTO MENU":GETZS$ 
CLS 

PRINT" TELEPHONE DIRECTORY" 

PRINT: PRINT: PRINTSPC (8) ;CHRS (96) +" 

MICHAEL CALDWELL 1983" 

PRINT: PRINT"PLEASE CHOOSE ONE " 

PRINT: PRINT"1)START NEW DIRECTORY" 

PRINT: PRINT"2)TO VIEW DIRECTORY" 

PRINT: PRINT"3)TO SAVE DIRECTORY ON TAPE" 
PRINT: PRINT"4)TO SEARCH FOR A NUMBER" 
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TAKE YOUR ORIC TO THE LIMITS -AND BEYOND 


The Oric Handbook 


PETER LUPTON and 
FRAZER ROBINSON 


The Oric Handbook offers its 
readers the opportunity of 
harnessing the power of one of 
the newest and most exciting 
microcomputers. A clear step-by- 
Step introduction opens the Oric 
to the beginner while the wealth 
of hints and tips, exciting 
programs and applications makes 
the book essential reading for 
even the experienced 
programmer. There are also 
lengthy sections on sound and 
graphic capabilities which are 
particularly impressive features of 
the Oric. 


The book contains full details 
of the differences between the 
old and new ORIC ROM and 
also documents all the new 
features and commands. 


224pp £5.95 


Available through your local bookshop 
or if you experience any difficulty 
please fill in the form below 


ORDER FORM | enclose my cheque/postal order for £6.50 per 

copy 

Please make payable to George Philip 

To: George Philip Services Ltd, 
Arndale Road, Wick, Littlehampton, 
West Sussex BN17 7EN 

Address_ 

Please send me copy/copies of 

THE ORIC HANDBOOK by PETER LUPTON and 

FRAZER ROBINSON at £6.50 per copy (post paid) societ 


Please allow up to 28 days for delivery 


INTRODUCTION 


This time we feature Chapter 12 from the Oric Handbook — Low 
Resolution Graphics 


LOW RESOLUTION 
GRAPHICS 


In addition to displaying text on the screen, the 
ORIC can generate and display a variety of 
graphics shapes and symbols. 


There are two distinct types of graphics — Low 
Resolution and High Resolution. The difference 
between the two is in the size of the individual 
blocks, or pixels, (picture elements) which make 
up the display, and in the amount of memory used 
by the display. 


LOW RESOLUTION GRAPHICS 


Low resolution graphics use the same screen 
layout as text mode — 27 rows of 40 columns. In 
low resolution mode, or Lores, each square on the 
screen which contains a letter or number in TEXT 
mode can contain either a letter or number, or a 
Lores graphics character. 


To see the range of Lores characters, type in and 
RUN this program. 


ie eB 

10 LORESI 

20 FOR I=32 TO 95 

30 PRINT CHR$(1);SPC(6); 
40 NEXTI 


The Lores graphics on the ORIC are of the same 
type as those used for viewdata services such as 
PRESTEL, CEEFAX and ORACLE. They are 
built up from a grid composed of six blocks. 


Each block in the character is assigned a number, 
and these are used to determine the character 


The Lores character grid 


code. For example, suppose we wanted to display 
a character which looked like this: 


To find the code for this character, first add up the 
numbers of the shaded squares 


1+8+16=25 
Then add 32 


25+32=57 
This is the ASCII code for the character ‘9’. 


In order to display our graphics character, we 
need to put character 9 on the screen. However, 
we must also specify that we require a graphics 
character, and not the number ‘9’. There are two 
ways to do this. 


In TEXT mode: 


Clear the screen (CTRL L) 

Move the cursor in from the left with the space 
bar 

Press ESC, then I 

Now press 9 


Our graphics character is displayed. 


The ESC I sequence instructed the ORIC that the 
next character should be the graphics character 
corresponding to ‘9’, rather than the alphanumeric 
character. 


We can use the same technique within a program: 


10 CLS 
20 PRINT” “CHR$(27)”19” 


Oric Owner 33 


Features 


Here we use CHR$(27) to represent to ‘ESC’ 
character because we cannot type the ‘ESC 
character into a program. 


You can use this short program to try out other 
characters 


10 CLS 

20 INPUT “ASCII CODE”:C 

30 PRINT C;CHR$(27);“I”;CHR$(C) 
40 GOTO 20 


As you can see this method allows both alpha- 
numeric and Lores graphics characters on the 
same line. 


Depending upon when you bought your ORIC, 
you may find that the LORES characters are a bit 
lopsided, because the pixels are not all the same 
size. This is a fauit of the ORIC, and to get around 
it you will either have to design your low 
resolution displays accordingly, or reprogram the 
alternate character set. This short program will do 
the job. 


10 FOR 1=47368 TO 47858 

20 IF PEEK(1)=240 THEN POKE I,56 
30 IF PEEK(I)=15 then POKE I,7 

40 NEXT 


You could include this program as a subroutine in 
programs that use Lores graphics characters. 


There is another way of using Lores graphics, 
which was used in the first example program — the 
BASIC command LORES. 


LORES 


LORES is followed by a parameter N, which can 
be either a 0 or a 1. A 0 means that all characters 
printed on the screen will be from the standard 
character set; a 1 selects the alternate set, which 
contains the 64 Lores characters. 


The following program illustrates the difference 
between the two by first writing a message using 
the standard set, then switching to the alternate 
set and rewriting the message. 


5 CLS:A$=“CHARACTER SET DEMO” 
10 LORESO 

20 PRINT 

30 PRINTA$ 

40 WAIT 500 

50 LORES1 

60 PRINT 

70 PRINT A$ 

80 WAIT 500 

90 CLS 


Each time a LORES command is executed, the 
screen is cleared to black, and every subsequent 
PRINT or PLOT statement is executed using the 
specified character set, until another LORES, 
TEXT or CLS statement is executed. 


MIXING CHARACTER SETS 


It is possible to use characters from both character 
sets on the screen at the same time, by sandwich- 
ing the ‘foreign’ character or string with CHR$(8) 
and CHR$(9), as in this example: 


10 LORESO 

20 M$=“LORES 0 SELECTED” 

30 U$= 
CHR$(9)+“#####HEHEHERHEE” 
+CHR$(8) 

40 PLOT 12,5,M$ 

50 PLOT 11,6,U$ 

60 PLOT 1,9, “UNDERLINING USING 
ALTERNATE CHARACTERS” 


This technique works in reverse: you can display 
alphanumerics in LORES 1: 


10 LORES1 

20 U$=CHR$(8)+ “TEXT in LORES1” 
+CHR$(9) 

30 M$=“NANANANA” 

40 FOR Y=0 TO 24 

50 PLOT 16,Y,M$ 

60 NEXT Y 

70 PLOT 12,12,U$ 


As we saw in the previous example, Lores 
graphics characters can be assembled into strings 
in the same way as text characters, and we can use 
this method to draw lines and patterns. 
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For example, we can draw a grid pattern on the 
screen using the three characters shown below: 


First, find the character codes by adding up the 
numbers of the shaded squares and adding 32: 


44+8=12 124+32=44 Fa 
14+4+8+16=29 29+32=61 ‘= 
2+4+4+8+32=46 46+32=78 ‘N’ 


We build up a string containing the characters 
“=N 


For use in TEXT mode, the string must begin with 
a space, followed by the ‘ESC’ character and an 
‘ESC’ code 

Our string becomes 


A$=* “+CHR$(27)+“1"+”,=N” 
We can now PRINT the expanded string. 


10 A$=” "+CHR$(27)+*I?+ 
“,=N,=N,=N,=N,=N,=N,=N,=N,=N” 
20 PRINT A$ 


ESCAPE CODES 
We can obtain double weight and flashing charac- 
ters with Lores graphics. 


If we alter line 10 of our example to read 


10 A$=” ”+CHR$(27)+“M”+ 
“,=N,=N,=N,=N,=N,=N,=N,=N,=N” 


our graphics string can be made to flash. 


Similarly, double height graphics can be obtained 
by replacing the M in line 10 with a K, and adding 
CHR$(4) (which is CTRL D) to the string 


10 A$= ” ”+CHR$(4)+CHR$(27)+“K” 
+”,=N,=N,=N,=N,=N”+CHR$(4) 


Remember that double height characters require 
accurate vertical positioning — to prevent them 
appearing with the top half of the character below 
the bottom half, you must position the string on an 
even numbered line. 


To make the double height characters flash, 
replace the ‘K’ with an ‘O’. 


MOVING GRAPHICS 


We can use the PLOT command to place graphics 
characters anywhere on the screen in LORES1 
mode. This program creates a string of characters, 
and moves them slowly across the screen. 


10 LORES1 

20 A$=“XKU” 

30 FORX=1 TO 36 
40 PLOTX,10,A$ 
a) PLOTA—1,10," ” 
60 WAIT10 

70 NEXTX 


COLOUR WITH LORES GRAPHICS 


In previous chapters, we learned how to change 
foreground and background colours with the INK 
and PAPER commands. 


This works equally well when PRINTing graphics 
strings in TEXT mode. Since INK and PAPER 
are global commands, the entire screen will be 
affected. 


However, these commands are not as useful in 
LORES modes. You may change the colour of the 
characters from either character set, using INK, in 
either LORES mode, but PAPER doesn’t work: 
the screen is always set to black. 


This short program plots a graphic string in 
LORES 1| and displays all the INK colours. 


10 LORES1 

20 PLOT15,15,“ABCDEFG” 
30 FOR I=0 TO 7 

40 INK I 

50 WAIT 100 
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60 NEXTI i‘ 
70 WAIT 100 
80 CLS 


If we change line 40 to read 
40 PAPER I 


you will notice that only one of the screen columns 
adopts the PAPER colour — the rest of the screen 
remains black. This is because of the way in which 
the ORIC controls its screen display — with the 
use of attributes. You can make use of attributes 
in LORES modes in exactly the same way as 
in TEXT mode. 


This program uses most of the ideas in this chapter 
to plot a histogram (bar chart), showing the 
spread of numbers generated by the RND com- 
mand. 


5 INK7:PAPERO 
10 LORESI 

20 DIMA%(40) 

30 PRINTCHR$(17) 
40 PRINTCHR$(20) 


50 Y$="5” 
60 X$=“#" 
70 P$="£” 


80 T1I$=CHR$(8)+“Histogram 
showing Random Numbers” + 
CHR$(9) 

90 T2$=CHR$(8)+“between 0 and 35 
being generated” + CHR$(9) 

100 N$=CHR$(8)+” 0 
Number 
35” +CHR§(9) 

110 GOSUB 500 

120 GOSUB 200 

130 FOR C=1 TO 300 

140 : N=INT(RND(1)*36) 

150 : A%(N)=A%(N)+1 

160 : IFA%(N)>20 THEN A%(N)=20 

170 : PLOT N+3,23—A%(N),P$ 

180 NEXTC 

190 GETZ$: PRINT CHR$(17) 
CHR$(20): CLS 

195 END 

200 FOR Y=3 TO 23 


36 Oric Owner 


Features” 


210 PLOT 1¥.¥s 
220 NEXTY | 

230 FORX=1 to 38 
240 PLOTX,23,X$ 
250 NEXTX 

260 PLOT2,0,T1$ 
270 PLOTZ,1,T2$ 
280 PLOT1,24,N$ 
290 RETURN 

500 FORI=48121 TO 48961 STEP 40 
510 POKE I,5 

520 POKE I+2,3 
530 NEXTI 

540 RETURN 


Lines 5 to 40 set the display mode, turn off the 
cursor and select lower case (simply to tidy up the 
display). 


Lines 50 to 70 set the characters used for the X and 
Y axes and the bars of the chart. 


Subroutine 500 places attributes on the screen to 
control the colour of the axes. 


Subroutine 200 draws the axes and labels the 
chart. 


Lines 130 to 180 plot the results for the function in 
line 140 for 300 numbers, with line 160 guarding 
against any part of the histogram overwriting the 
titles. 


SUMMARY 


There are two low resolution graphics modes, 
designated LORESO and LORES1, which dis- 
play characters from the standard and alternate 
character sets respectively on a black screen. 


Characters from both character sets can be 
displayed in either mode by sandwiching the 
‘foreign’ characters with CHR$(8) and CHR$(9). 


The LORES screen has the same layout as the 
TEXT screen, and its appearance can be con- 


trolled using attributes in the same way as the 
TEXT screen. 
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interesting and may be useful in 
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The sound effects are also 
PLOT routines. 
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(Best out of 10 wins the set) and many other games situations. 
the sets can just keep mounting The plotting of the screen mes- 


The skill levels decide how long 


you have. 
little more SPEED, although 


The game can still be improved, 
by — for instance, arranging a 
the time limits make up for any 


The games are in sets of 10. 


up. 


you have to move 


(9) SUHOLNIYd: (92) SYHOLNIUd 
TadaSWHO *€86T?preyo TL Aow waa 


The idea of the game is not 
around the screen with the cur- 
sor keys, avoiding the trail left 
by ORIC, and taking care not to 
hit the sides of the wall, your 
own Path, or doubling back on 
yourself. But In my game you 
have to trick ORIC into a corner 
— AND do it against the clock! 
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2015 
20620 
2025 
2838 
2048 
2058 
2968 
20768 
2075 
2088 
2096 
2188 
2110 
2115 
3886 
3061 
3082 
3863 
3019 
3620 
3038 
3835 


3036 
3037 
3038 
3039 
4000 
4005 
4816 
4020 
4030 
4040 
4050 
4060 
40708 
4075 
4088 
5980 
50198 
5028 
5930 
5049 
5056 
8008 
8016 
8820 
8025 
8938 
8046 
8045 
8058 
8060 
8378 
808¢ 
8096 
8190 
8118 
8128 
9988 
9862 
9885 
9818 


WAIT100 

CLS 

TIME=0 

PRINT"SCORE: COMPUTER ";CS,NAMES;" ";HS 
PRINT" ----------------------------------- 
FORL=1T029 

PRINT" | ig 
NEXTL 

PRINT" ----------- 3 nner nanan 
C1=18:C2=10 

H1=10:H2=16 

IF CS=18 THENCLS:GOTO3G88 

RETURN 

WAIT100 

CLS 

TIME=6 

IFCS=16THENST=ST+1 

IFHS=1@THENYO=YO+1 

IF CS=19 THEN GOSUB196000 

IF HS=1@8 THEN GOSUB26006 

PRINT: PRINT: PRINT: PRINT 

PRINT" THE COMPUTER HAS WON ";ST;" SETS":PRINT:PRINT 


IFYO=QTHENPRINT" YOU HAVE NOT WON A SET YET ";NAMES:GOTO3038 
PRINT" YOU HAVE WON ";YO;" SETS ";NAMES 

PRINT: PRINT: PRINT: PRINT: PRINT: PRINT 

PRINT"PRESS ANY KEY":GETAS$:GOSUB4608 :GOTO8G00 

PRINT: PRINT" "; 

PRINTCHRS (4) ;CHRS(27);"JSKILL LEVEL <1 EASY TO 5 HARD> "; 


INPUTSK 

IF SK= 1 THEN SK=168 

IF SK= 2 THEN SK=9@ 

IF SK= 3 THEN SK=8@ 

IF SK= 4 THEN SK=7@ 

IF SK= 5 THEN SK=5@ 

PRINTCHRS (4) 

CLS 

RETURN 

IFSK=100AND TIME=85THENGOSUB31960 


IF SK=9@ AND TIME=75 THEN GOSUB31000 

IF SK=8@ AND TIME=65 THEN GOSUB3186068 

IF SK=7@ AND TIME=55 THEN GOSUB31660 

IF SK=5@ AND TIME=35 THEN GOSUB31600 
RETURN 

J=1:C1=10:C2=10 

H1=10:H2=20 

HS=6:CS=8 :TIME=8 

PAPER@ 

INK INT(RND(1)*6)+1 

CLS 

TIME=@ 

PRINT"SCORE: COMPUTER ";CS,NAMES;" ";HS 
PRINT" ----------------------------------- e 
FORL=1T020 

PRINT" | s 
NEXTL 

PRINT" ----------------~----~-------------- " 
M=9:N=8 

RETURN 

CLS: PAPER@: INK6: 

PING 

PRINT:PRINT" "; 


PRINTCHRS (4) ;CHRS (27); "A"; CHRS (27); "J CHAS E R* 


9828 
9625 
9827 
9828 
9830 
":GOS 
9648 
9645 
:GOSU 
9656 
9055 
98608 
9665 
9500 
9868 
98676 
GOSUB 
9675 
9886 
UB95@ 
9681 
9682 
9883 
9085 
9887 
9696 
9695 
"3GOS 
9165 
UB95@ 
9116 
9115 
9120 
9122 
9125 
9136 
9506 


9518 
9528 
9538 
19088 
19865 
1898108 
19628 
20008 
28005 
20616 
29848 
30888 
PENAL 
30085 
36018 
36011 
T 
36012 
36015 
368208 
318808 


31681 
31662 
31883 
31665 
31194 


PRINTCHRS (4) 

PRINT: PRINT: PRINT 

PRINTCHRS (96) ; 

SS=" Roy Titchard : 1983:":GOSUB95@@8: PRINT 
Sss= “IN THIS GAME IT'S YOU AGAINST THE 
UB9509 

PRINT 

SS= "THE COMPUTER IS DEFINED AS '#' AND 
B9I56@ 

PRINT 

s$= “FIRST LETTER OF YOUR NAME.":GOSUB9500 
PRINT 

S$= “YOU MOVE AROUND THE SCREEN VIA THE 


COMPUTER AND TIME! 


YOU WILL BE THE" 


ARROW KEYS.":GOSUB 


PRINT 

S$="YOU MUST NOT BUMP INTO YOURSELF OR 
9508 

PRINT 

s$= "IT IS ALSO FATAL IF YOU DOUBLE BACK 
@ 

PING 

PRINT: PRINT" PRESS ANY KEY" 

GETAS : CLS: INK2: PAPER@: GOTO9@85 

PRINT: PRINT: PRINT: PRINT: PRINT 


THE COMPUTERS PATH": 


ON YOURSELF.":GOS 


PING 
SS= “THERE ARE TEN GAMES TO EACH SET.":PRINT:GOSUB9500 
S$= "AND THE SKILL LEVEL CHOSEN DETERMINES THE AMOUNT OF TIME 


UB9509 

SS="YOU HAVE TO TRAP ORIC! - SO THINK FAST OR LOSE FAST!":GOS 
1) 

PING 

PRINT: PRINT: PRINT: PRINT: PRINT 


PRINT: PRINT 
PRINT" PRESS ANY KEY" 
GETAS 

PRINTCHRS (20) :GOTO12 


: FOR I=l TO LEN(SS): PRINT MIDS(S$,I,1);:FOR J=1 TO 40 : NEXT 


: PLAY1,1,1,2@6 : SOUND1,3000,0: 
NEXT: PRINT 
RETURN 
PRINT: PRINT" "; 
PRINTCHRS (4) ; CHRS (27); "N 
PRINTCHRS (4) 
RETURN 
PRINT:PRINT" "; 
PRINTCHRS (4);CHRS(27);"N YOU HAVE WON 
PRINT CHRS (4) 
RETURN 
PRINTCHRS (4) : POKE616, 23: PRINT: POKE617,2:PRINTCHRS (27) ; "NTIME 
Ty" 
REM 
POKE616, 23: PRINT: POKE617, 20: PRINTCHRS (27); "NTIME PENALTY" 
FORJ=1TO3@G@STEP2:PLAY 7,0,8,0:SOUND1,J,10:SOUND2,J*1.2,12:NEX 


PLAY 9,09,0,9 


COM PUT ER wiIN s" 


"; NAMES 


PLAY®,@,8,0:EXPLODE 

PRINTCHRS (4) 

WAIT3@0:CLS: RETURN 

FORJ=35TOGSTEP-2: PLAY7,%,0,0:SOUND1,J,15:SOUND2,J*1.2,15:NEXT 


PLOT8,23,CHRS$(12)+"TIME PENALTY IMMINENT" 
PLAY@,@,8,@ 

PING 

RETURN 

SOUND1,558@,9:PLAY1,0,1,1606@ 


SUIJSIT ,,AdSeY),, 
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Software 


This is a computerised version of 
the familiar game of BATTLE- 
SHIPS. Your opponent is the 
computer. The computer will 
hide 5 ships on a 9 X 9 grid and 
you must do the same. You will 
then take turns with the com- 
puter to try to bomb the other’s 
ships by firing a missile at a 
particular co-ordinate. 


The player who sinks all of his 
opponent’s ships first is the win- 
ner. 


The game starts by displaying 
the instructions, after which you 
are asked to place your ships on 
the grid. Co-ordinates are 
entered as (for example) E5 — 
note the letter must come first. 


2 YC=0:CC=0 


10 REM BATTLESHIPS GAME 
TATEMENTS 


ME WITH 

13 REM 48k MACHINE 

20 REM BASED ON THE TRADITIONAL GAME 
30 REM BY S.W. LUCAS 


40 REM AUGUST 1982 


REMOVED 


SO TEXT 


Si DIMA$(9,9) ,BS(9,9) ,C$(6) 


11 REM THIS GAME CAN BE EASILY MODIFIED TO SUIT THE USER:-SEE REM S 


12 GRAB:REM RELEASES SPACE OCCUPIED BY HIRES:NOT NEEDED FOR THIS GA 


45 REM AN ORIGINAL FROGRAM FOR THE ORIC 11 48k 


46 REM WILL RUN ON THE ORIC1 16K MACHINE ONLY IF ALL REM STATEMENTS 


47 REM DIFFICULTY LEVEL CAN BE ADJUSTED :SEE LINE 25041 


BATTLESHIPS 


By S. W. Lucas 


You must first give the bow 
co-ordinate and then the stern 
coordinate. If the values entered 
don’t make sense, you will be 
asked to try again: NOTE the 
LETTER must come first ie. E5 
is valid 5E is not! 


SHIP SIZES 


Aircraft Carrier = 6 
Battleship = 5 
Cruiser = 4 
Submarine = 3 
Destroyer = 2 


After the board is set up, you 
and the computer will take turns 
at trying to destroy each other’s 
ships. 


Good Luck. 


Variables used 


A$(X,Y) = ships grid 

B$(X,Y) = your grid 

other variables are used as 
counters 


Possible changes 


1. The ships could be represen- 
ted as ships rather than letters. 
2. The algorithm for destroying 
the rest of your ship after the 
first hit could be altered to make 
the game harder. 

3. Removing all REM « state- 
ments will allow the game to run 
in 16K machines. 


54 GOSUB10000 
SS cits 


60 PAPER7: INK1 


80 DATA" 

85 DATA"Cruiser 

90 DATA"Battleship 
100 FORY= 2 TO 20 
110 PLOT20,Y,124 


120 NEXT 


140 PLOTX*2+1,1,CHRS(48+X) 


150 NEXT 


70 FOR X=1T06:READCS$ (XxX) : NEXTX 


130 FOR X = 1T09 


145 PLOTX#2+19, 1,CHRS(48+X) 


160 REM PRINT LETTERS DOWN SIDE OF SCREEN 


", "Destroyer ", "Submarine 


","Aircraft Carrier” 


Oric Owner 39 


Software 


BATTLESHIPS 


170 FORX=1 TO 9 
190 PLOT, X#2+1, CHR (S4+X) 
190 NEXTX 
200 PRINT: PRINT:FPRINTs PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRI 
NT:FRINT 
PRINT: PRINT: PRINT: PRINT 
PRINT: PRINT: PRINT 
PRINT: PRINT: PRINT: PRINT 
GOSUB1 1000 
GOSUB13500 
REM CC=COMPUTER’S SCORE: YC=YOUR SCORE 
REPEAT 
GOSUB16000 :REM YOUR GO 
GOSUB25000: REM COMPUTER*’S TURN 
UNTIL CC=20 OR YC=20 
IFCC=20THENAS="I WIN" ELSEAS="YOU WIN !! 1!" 
CLS: INK4:PLOT1,10,A% 
PLOT1,15,"D0 YOU WANT TO PLAY AGAIN?" 
GETHS: IFHS< > " THEN RUN 
END 
9900 REM THE END OF THE PROGRAM IS FOLLOWED BY THE SUBROUTINE OF IN 
STRUCT IONS 
9999 END 
10000 CLS: PAPERO: INKS 
10005 PRINTCHRS (12) 
10010 PRINTCHR$ (4) 3 CHR® (131) $CHR®(27) 5"N BATTLESHIPS" 
10020 PRINTCHRS (4) 
10030 PRINT: PRINT: PRINTCHR$(129);"By S. W. Lucas <C> 1983" 
10035 PRINT: PRINT: PRINT 
10040 PRINT" This is a computerised version ofthe traditional g 
ame of "§ 
10050 PRINT” BATTLESHIPS. " 
10060 PRINT" The game is playeu on a9 by 9 grid. Each point 
on the grid is" 
10070 PRINT"identified by a label such as AS, FS etc." 
10080 PRINT” In this version of the game, youropponent is the c 
omputer. "3 
10090 PRINT"The computer will hide 5S ships on this grid"; 
10095 PRINT" and youmust do the same.” 
10100 PRINT" You will take turns with the computer to try a 
nd guess the" 
10110 PRINT"the co-ordinates of your opponents ships." 
10120 PRINT" The winner is the one who locatesthe position of a 
1l"s 
10130 PRINT" of the opponents ships!" 
10135 REM WAIT FOR ANY KEY TO BE PRESSED BEFORE RETURNING TO THE GA 


ME ! 
10140 GETFS 


10145 REM ADD ANY EXTRA INSTRUCTIONS FOR THOSE WHO HAVEN’T PLAYED T 
He GAPIE 

10146 REM BEFORE HERE 

10150 RETURN 

11000 LET D= INT(RND(1) #81) 

11010 REM THIS SUBROUTINE CHOOSES THE COMPUTERS FOSITIONS 


11020 REM FOR THE SHIPS ON THE 9 * 9 GRID NOTE 9*#9 =81 - LINE 1100 


THE ARRAY AS$(X,Y) HOLDS THE LOCATIONS OF THE SHIPS ! 
11040 LET A=INT(RND(1) #2) 
11045 REM IF A=O THEN SHIP HORIZONTAL 


11046 REM IF A=1 THEN SHIP VERTICAL 


11047 LET X=6 :REM SIZE OF AIRCRAFT CARRIER 
11048 LETK=INT(RND(1)*3)+1:REM RANDOM X POSITION OF AIRCRAFT CARRIE 
R 


LET L=INT(RND(1)#3)+1:REM RANDOM Y POSITION OF AIRCRAFT CARRI 


GOSUB12000 

IF @R=1 THEN 11047 :REM IF LOCATIONS ALREADY OCCUPIED TRY AGA 
IN 
11056 sREM TYPE OF SHIP 
11060 GOSUB12000:REM IF LOCATIONS EMPTY PUT SHIP THERE 
11070 A=INT(RND(1)#2):REM A=O :-SHIP HORIZONTAL, A=1: SHIP VERTICAL 
11074 LET X=5 :REM SIZE OF BATTLESHIP 
11075 LETK=INT(RND(1)#*4)+1:REM RANDOM X POSITION OF BATTLESHIP 
11077 LET L=INT(RND(1)*4)+1:REM RANDOM Y POSITION OF BATTLESHIP 
11080 GOSUB12000 
11085 IF AA=1 THEN 11075: REM IF LOCATION ALREADY OCCUPIED, TRY AGA 
IN 
11088 Z$="B":REM TYPE OF SHIP 
11090 GOSUB13000:REM IF LOCATION EMPTY, PUT SHIP THERE 
11095 A=INT(RND(1*2)):REM SHIP HORIZONTAL OR VERTICAL 
11100 LETX=4:REM SIZE OF CRUISER 
11105 LET K=INT(RND(1)*5)+1:REM X POSITION OF CRUISER 
11107 LETL=INT(RND(1)*5)+1:REM Y POSITION OF CRUISER 


11108 GOSUB12000: IFAA=1 THEN 11105:REM TRY AGAIN IF LOCATION OCCUPI 
ED 


11110 Z$="C":REM CRUISER 

11113 GOSUB13000:REM LOCATE CRUISER 

11115 A=INT(RND(1)#2):REM VERT OR HORIZ. 

11117 LET X=3:REM SIZE OF SUBMARINE 

11120 LET K=INT(RND(1)*#6)+1:REM X POS. OF SUBMARINE 
11122 LET L=INT(RND(1)*6)+1:REM Y POS. OF SUBMARINE 


11125 GOSUB12000: IFAA=1THEN 11120:REM IF LOCATION ALREADY OCCUPIED, 
TRY AGAIN 


11127 7% sREM SUBMARINE 

11130 GOSUB 13000:REM LOCATE SUBMARINE 

111 A=INT(RND(1)*2):REM HORIZ. OR VERT. 

11135 LET X=2:REM SIZE OF DESTROYER 

11140 LET K=INT(RND(1)#7)+1:REM X POS. OF DESTROYER 
11142 LET L=INT(RND(1)*7)+1:REM Y POS. OF DESTROYER 
1tt4S GOSUBIZ000: IF AR=1 THEN 11140: TRY AGAIN IF LOCATION ALREADY O 
CCUPIED 

11150 Z$="D":REM SHIP TYPE= DESTROYER 

11152 GOSUB13000:REM LOCATE SHIP 

11160 RETURN 

11999 RETURN :REM END OF ROUTINE FOR COMPUTER CHOICE 
12000 AA=0 

12001 REM SUBROUTINE TO CHECK IF ARRAY ELEMENTS EMPTY 
12005 FORP=0 TO xX 

12010 IF A =O THEN IF AS(K+P,L)<>"" THENAA=1 

12020 IFA=1 THEN IF AS(K,L+P)< THENAA=1 

12030 NEXT P 

12040 RETURN 

13000 FOR P=1 TO Xx 


13010 IF A=0 THEN AS(K+P,L)=Z% 


IF A=1 THEN as(k,U+P)=zs 


NEXT 

RETURN 

FORP=6 TO 2 STEP-1 
K$="Ship size = "+STRS$(P) 


13502 PLOT1,21,ks 
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13504 AB=0 15510 REM NEXT CHECK TO SEE IF LOCATION IS ALREADY OCCUPIED 


REM SUBROUTINE FOR PLAYER TO SELECT THE POSITION OF HIS/HER S 


13505 


15515 IFY1>¥2 THENKK=Y1:Y1=Y2:Y2=kKk:REM IF COORDINATES WRONG WAY- S 


HIPS War ROUND 


13510 PLOT1,23,"Enter the bow position of your 15520 FORS=Y1TOY2: IFBS(X1,S)< >""THENGOSUB1 4500: P=P+1: RETURN 


13511 PLOT1,24,C8(P):WAIT4O i5S22 NEXTS 


13512 PLOT1,22," bd 15525 FORS=Y1 TO Y2:B$(xX1,S)=ZZ$:NEXT 


13513 PLOT25,24," ” 18527 FOR S=YiTOY2 


43514 E=25 15528 REM DISPLAY CHOICE 


13515 FORA=1 TO 2:REM GET POINTS OF SHIPS COORDINATES 15530 PLOTX1#2+1,S#2+1,77$ 


13517 GETDS(A) NEXT S 


13518 PLOTE,24,D8(A> 15540 RETURN 
13519 E=E+2 16000 PLOT1,21,"ENTER YOUR MISSILE COORDINATES 
13520 NEXT 16010 PLOT1,22," 
13522 PLOT25, 24," wi 16011 E=25 


13523 GOSUB14000: Y1=Y:X1=X:REM CHECK VALIDITY OF POINT 16020 PLOT1,25 


13524 IFABC>O THEN 13501 T6050: PLOT 4 


16040 PLOT1,2 


13525 PLOT1,23,"Enter the stern position of your” 


13530 PLOT1,2 


.C$(P) 2E=25 16041 AB=0 


13532 FORA=1T02:REM GET COORDINATES OF STERN POSITION 16044 FORA=1 TO 2:REM GET COORDINATES OF MISSILE 


13535 GETD$ (A): PLUTE, 24, D(A) sE=E+2 16045 GETDS$(A) 


13557 NEXT: WAIT40 16046 PLOTE, 24, D$(A) :E=E+2:NEXT 


13538 PLOT1,22," = T8050 GOSUBI3000: REM CHECKS IF FUINT VALID 


13540 GOSUB14000: Y2= 


2X2=X:REM CHECK VALIDITY OF POINTS 16051 IFAB=1THENWAIT100: GOTO16000 


13541 IFY1=Y2THENGOSUB1 5000: GOTO13545 16065 REM CHECK IF ALREADY GUESSED LOCATION 


13542 IFX1=X2THENGOSUB 15500: GOTO13545 16070 IFAS(X,Y)="+"THENPLOT1, 22, "ALREADY TRIED! ":WAIT 


13543 PLOT1,22,"YOU HAVE MADE A MISTAKE": AB=1:GOTO13510 16075 REM CHECK IF COMPUTER HAS NOTHING THERE 


13545 NEXT 


16080 IFAS(X,Y)=""THENAS (X,Y) ="+"2PLOTX#2419, Ye2+1, "+": PING: RETURN 


13550 RETURN 


16085 REM NOW DISPLAY HIT 


14000 LET Y=ASC(D$(1))-64 16090 PLOTX#2+19, Y#2+1,AS(X,Y) 2 AS(X,Y) =" 


“:YC=YC+1:EXPLODE 


14005 IF Y¥< 10RY > 9 IHENGOSUB14S500 NOW; — 17000 RETURN 


14010 LETX=VAL (D$(2)) 25000 IFAZ=OTHENX=INT(RND(1) #9) +1 


14015 IFX<1 ORX>9THENGOSUB14500:REM SUBROUTINE TO DISFLAY ERROR 25001 PLOT1,21,"HOLD ON WHILST I THINK OUT MY MOVE 


14350 RETURN 25002 FLOT1,22," 


14500 PLOT1,22," INCORRECT COORDINATES :TRY AGAIN": AB=1 


25003 PLOT1,23," 


14505 RETURN 25010 IFAZ=OTHENY=INT (RND(1)#9) +1 


15000 LETL=X1-X2: IFL<1THENL=X2-X1 25015 WAITLOO 


15002 LET L=L+1 :REM TO SET CORRECT SHIP SIZE 25020 REM AZ=PREVIOUS GUESS = A HIT 


15005 IFL« >PTHENGOSUB1 4500: P=P+1: RETURN 


25030 IFAZ=OANDBS (X,Y) ="+"THEN25000 


15006 IFL=6THENZZ$="A"ELSEIFL=STHENZZ$="B"ELSEIFL=4THENZZ$="C" 


25032 IFBS(X,Y)<>""ANDBS(X,Y)< >"+" THENLL $=BS (X,Y) 


15007 IFL=3THENZ2$="S"ELSEIFL=2THENZZ$="D" 


25035 IFAZ=OANDB$ (X,Y) < >""THENLL $=BS$ (X,Y): BS(K,Y)="#"s GOTO26000 


15010 REM NEXT CHECK TO SEE IF LOCATION IS ALREADY OCCUPIED 


15015 IFX1>*%2 THENKK=X1:X1=X2:X2=KkK:REM IF COORDINATES WRONG WAY- S 


25040 IFAZ=OANDBS (X,Y) " THENBS (X,Y) 


"sPLOTX#2+1,Ye2e1," 


WAP ROUND ETURN 


15020 FOR S=X1 TO X2: IFBS$(S,Y1)<>""THENGOSUB1 4500: P=P+1: RETURN 


25041 REM THE FOLLOWING ALGORITHM IS A VERY SIMPLE ONE FOR THE COMP 


NEXTS UTER 


15025 REM ABUVE CHECKS IF THE ARRAY BS(X,Y) IS EMPTY 


é 
25042 REM TO FIND THE REST OF YOUR SHIF IF IT HITS ONCE 
15025 


FORS=X1 TO X2sB8(S,¥1)=ZZ$: NEXT 25043 REM A MORE SOPHISTICATED ALGORITHM WOULD MAKE THE GAME HARDER 


15027 FOR S=x1 TO x2 


TO WIN' 


15028 REM DISPLAY CHOICE 


25044 REM ROUTINE CHOSEN TO MAKE IT EASIER TO PLAY 
15030 


PLOTS#2+1,Y1#2+1,27% 25050 FORF=1T09: FORQ=1TO9 


15035 NEXT S 


25060 IFBS(P,Q)=LL$THENX=P: Y=0:P=11:0=11:GOTO25080 


15040 RETURN 


25070 NEXTO,P 


15500 LETL=V1~—yY2: IFL<1THENL=Y2-Y1 


25080 IFF=11THENAZ=0: GOTO25030 


15502 LETL=L+1:REM TO SET CORRECT SHIP SIZE 


25085 AZ=0:GOTO2S5010 


TFL 


15505 >P THENGOSUB 1 4500; P=P+1: RETURN 


“ISIIT RETURN 


15506 IFL=6THENZZ$="A"ELSE IFL=STHENZZ$="B"ELSE IFL=4THENZZ$="C" 


26000 PLOTX#241, ¥#241,"4"sLETCC=CC+1:AZ= 


: EXPLODE: RETURN 


15507 IFL=3THENZ2$="S"ELSEIFL=2THENZZ$ 
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Instructions 


OBJECT 

The object of the game is to get 
the dog back to his kennel. But 
first you must manoeuvre him 
through the woods in search of 
bones to provide him with 
energy. Then he must cross the 
river by jumping onto the mov- 
ing logs, and then into his kennel 
on the opposite side. 


IN PLAY 

You have 3 lives to begin with, 
and at the start of each frame 
you have 100 seconds to get four 
dogs back to their kennels. The 
dog’s energy decreases every 2 
seconds, and also when he 
moves up the screen towards the 
kennels. To replenish his energy 
he must eat one of the bones 
which are scattered through the 
woods. He must not crash into 
the trees or fall into the river. If 
his energy level gets too low, he 
cannot move towards the ken- 
nels, and must go back into the 
woods to find another bone. 


BONUS 

When you have filled all the 
kennels, a bonus is added to 
your score, depending on how 
much time is left. Then you 
move onto the next frame which 
is more difficult since there are 


Doggy Bone 


David Reid 


more trees, the river flows fas- 
ter, and the logs are shorter. 


LIVES 

You lose a life if you crash into a 
tree, fall into the river, or hit the 
fence beside the kennels. You 
also lose a life if you run out of 
energy or time. When there are 
less than 10 seconds left the 
clock will start ticking — hurry 


up! 


SCORE 

You score 5 points for moving 
the dog towards the kennels. In 
the first frame, you score 30 


~ 


points for every bone eaten, and 
50 points for reaching the ken- 
nels. This score increases as the 
difficulty level increases. If you 
do well enough, you will get to 
enter your name in the Hi-Score 
table. 


CONTROLS 
Z : LEFT 
X : RIGHT 
CAEP 

/ : DOWN 


Press RETURN to pause, and 
then press any key to restart the 
game. 
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RELEASE: HIMEM#94FF : FOKE #25A,. 10 


REM FROGRAM : Doggy Hone 
FEM AUTHOR : David Reid 
REM DATE : Sept. 1982 


CLS: FAFERO: INK 7 

PRINT"Storing data ..." 
PRINTCHRS (20) 

10 GOSUB1000 “Store machine code 
20 GOSUB1100 “User graphics 

30 GOSUB1300 *Hi-Score table 

40 GOSUB1400 “Initialize values 
SO GOSUB1S00 *Print title screen 
60 GOSUB1700 “Print frame number 
79 GOSURTBNN "Play tine 

Bu GUSUbevUU “Sel up sci eet 

85 GARBAGE=FRE ("") 

90 DOKE#274,10000:C=0 ’*Start clock 
100 REPEAT 

110 ON& (0) GOTO130, 140,150, 160,170 
120 GOTO210 

130 PLOTOX,OY,"A":NX=O0X—1:GOTO180 
140 PLOTOX,OY,"B X=0X+1:GOTO180 
150 PLOTOX,OY,"C":NY=OY-1:IF E<& THENNY=OY:GOTO210 
155 GoTo180 a 

160 PLOTOX, OY, "D":NY=OY+1:GOTO0180 
170 PT=DEEK (#276) : GETAS: DOKE#275,PT 
175 GOTO210 

180 GOSUB2300 *Check new position 
190 GOSUB2800 *Move dog 

195 C=C+2 

200 IFNOTOKZTHENGOSUB2700 * Dead 
210 C=C+1:IFC<10-LE THEN 270 

220 C=0:CALLA 

230 IFOY<>4THEN250 

240 OX=OX+1: IFOX=3STHENGOSUB2700 
245 NX=NX+1 

250 IFOY< >7THEN270 

260 OX=OX-1: IFOX=2THENGOSUB2700 
265 NX=NX-1 

270 GOSUB3500 *Update clock & energy 
280 UNTILFALSE 

1000 READA :REM 48K Oric version 
19001 REPEAT 

1002 READDS 

1003 REPEAT 

1004 V=VAL ("#"+D$) 

1005 POKEA, V: A=A+1 

1006 READDS 

1007 UNTILD$="FF" 

1008 READA 

1009 UNTILA=#FFFF 

1010 DOKE#2F5, #400 

1011 DOKE#2FC, #9700 

1012 A=#9500: RETURN 

1020 DATA#400 

1021 DATA 20,96,D9,AC,F8,02,C8,8C 
1022 DATA 69,02,A5,1F,A4,20,85,12 
1023 DATA 84,13,A9,3B, 20,DB,CF,4C 
1024 DATA 61,CB,FF 

1025 DATA#9S500 

10245 DATA A9,C3,85,66,A9, BC, 85,67 
1027 DATA AO, 00, B1,66,85,68,C8,B1 
19028 DATA 46,88,91,46,C8,CO,21,D0 
1029 DATA FS,AS,68,91,66,A9,9B,85 
1030 DATA 66,A0,21,B1,66,85,68,89 
1031 DATA B1,66,C8,91,66,88,C0,00 
1032 DATA DO,FS,AS,68,91,66, 60, FF 
1033 DATA#?700 

1034 DATA AG,00,AD,08,02,10,0C,C8 
1035 DATA D9,15,97,F0,06,C0,05, DO 
1036 DATA F&,A0,00, 4C,FD,D3,AA, BO 
1037 DATA BB,9F,AF,FF, #FFFF 


CU PWN o 


1100 
1101 

1102 
1103 
1104 
1105 
1106 
1107 
1200 
1201 

1202 
1203 
12704 


1705 


iZve 
1207 


FORI=65T082 

READDS 

FORJ=1TOLSSTEF2 

V=VAL ("#"4MID$ (D$,J,2)) 
F=#B800+148+(J-1)/2 
POKEF,V 

NEXTJ,I 

RETURN 

DATA © 
DATA 000004231C141400 
DATA 0404110E040E1100 
DATA 00110E040E110404 
DATA O03F001 4089803817 
DLVA OONMANAIDITONASS 
DAIA LOUK 20504 1 BOBO 
DATA OOSF 1900908103F00 
DATA OO3FO O6003FC0 
DATA 003C0023101023C00 
DATA O00A04150A040A11 
DATA 0000000000000102 


DATA 12210000 
DATA 9000000000002010 
DATA O40B120A3A0A0AS 


DATA O03FO0000000006G0 

DATA 083412141714141F 

DATA 0000001 23F 12123F 

DIMHI (8) ,HIS<(8) 

FORI=1T0O8 

HI(1)=(11-1) €100:HI$(1I)="Oric" 

NEXTI:RETURN 

S=0:F=0:L=3 

T=100 

E=30: OX=19: 0Y=24 

NX=O0X: NY=OY:NS=32 

RETURN 

CLS: INK4: PAPERO 

AS=CHR$(10)+"D o gg y Boon e":PLOT9,3,A$:PLOT9,4, AS 
FLOT13,7,CHR$(3)+"By D. Reid” 

PLOT11,10,CHR$(4)+"For ’Oric Owner’*" 
PLOT14,17,CHR$(1)+"CONTROLS" 

PLOT13, 19, CHR$ (2) +"LEFT Ze" 
PLOT13, 20, CHR$ (3) +"RIGHT 
PLOT13, 21, CHRS (4) +"UP ee 
PLOT13, 22, CHR$ (5S) +"DOWN </>" 
PLOT13, 23,CHR$(6)+"PAUSE <ret>" 
PLOTO4, 25, CHR$(7)+"Press <return> to start game ..” 
K$=KEY$: I=O 

REPEAT: R=RND (1): I=I+1 

UNTIL (KEY$=CHR$ (13) )OR(I>1000) 

IFI>1000 THEN PING:GOTO 1511 

RETURN 

CLS: PAPERO: INK6:F=F+1:H=0 

LE=F+1:IFLE>8 THEN LE=8 

AS=CHR$ (14)+"Doggy bone” 

PLOT13,7,A$:PLOT13,8,A% 

AS=CHR$ ( (LEOR1 ) AND7) +CHR$ (10) +"Frame" 

PLOT12, 13,A$:PLOT12,14,A% 

AS=CHRS (4) +CHRS$ (10) +"Score" 
PLOT12,17,A#:PLOT12,18,A% 

$23, 133Fs !23,143F 

23,1738: !25,1838 

RETURN 

T$="" 

IFF=1 THENT$=T $+" 588585 1 &5AAGAS 1 &BCCBCBACDEBESESK" 
TS=T$+"588585 1 &6AAGAG61&BCCBCBACDBS31&" 

TE=S5: OC=3:LT=LEN(TS$) 

FORI=1TOLT:NT=VAL ("#"+MID$(T$,1,1)):0=0C 

IFNT >#CTHENO=O0C+1 : NT=NT—#C 

IFNT=OTHEN1825 

MUSIC1,0,NT,11:MUSIC2,0-1,NT,7 

PLAYO,0,0,0 

PLAYS,0,1,3000 


Pe Ne ee 


SUI}SI] JUOg AS30q 


9TeMAJOS 


4IUMQ IUQ fh 


1825 
1826 
1827 
1828 
1829 
2000 
2005 
2010 
2015 
2020 
2025 
2030 
2035 
PO4n 
2045 
2046 
2050 
2051 

2055 
2060 
2061 
2062 
2063 
2065 
2066 
2070 
2075 
2980 
2085 
2een 
2095 
2105 


2110 


2115 


2120 


2130 
2135 
2140 
2145 
2150 
2155 
2160 
2165 
2170 
2175 
2180 
2300 
2305 
2310 
2315 
2320 
2325 
2330 
2335 
2700 
2701 

2705 
2710 
2715 
2720 
2730 
2735 
2740 
2745 
2750 
2800 
2802 
2805 

2810 


WAITTE 

NEXTI 

PLAYO,0,0,0 

GARBAGE=FRE ("") 

RETURN 

TEXT: CLS: INKO: PAPERO: CALL#E&CA 
PLOT1,0,CHR$(7)+"Setting up .-." 

FORI=0TO3: POKE48040+4081, 8: NEXT 

FORI=4T024: POKE48040+4081, 9: NEXT 

FORI=25T026: POKE48040+4081, 8: NEXT 
FORI=2T024: PLOT36, I, 16: NEXT 

PLOT4, 4, "LMN LMN LMN LMN" 

PLOT2. 5S, "RROPORRRRRROFORRRRRROPQRRRRRROPORR" 
PLAT? 6. "H" SPLOT. 7. "HS PE OT2O.4, "H"2PEOT20.7,"H" 
FURi=1101) LEsPLUI2Z+1,6,"E"2PLUI 21d, 7, "1"sPLUT20+1,6, "1" 
PLOT20+1,7,"I"2NEXT 

PLOT2+1, 6, "J":PLOT2+I,7, "J":PLOT20+1, 6, "J":PLOT20+1,7, "J" 
R=RND (1) #16+1 

FORI=1 TOR: CALLA: NEXT 

FORI=8T023: FORJ=1 TOLE*2+1 

R=RND (1) &29+4:PLOTINT(R),1,"F" 

NEXTJ,1I 

R=INT (RND (1) #5) 

FORI=1T010+R:R1=RND (1) #15+8 

R2=RND (1) #31+3:PLOTINT(R2), INT(R1),"G" 

NEXTI 

PLOTO. 1, CHRS (3) +CHRE (16) 

FORI=2T0S: FIOT1.1,CHR& (22) :NEXT 

FORI=6TO LOTO, 1,CHRS (7) +CHRS (20) : NEXT 
FORI=8TO23:FLOT1,1,CHR$ (12) = NEXT 


FLOTO, 29, CHRS (4) +CHRS (25) 

FPLOTO, 25, CHRS (5S) +CHRS (14) 

PLOTO, 26, CHRS (6) +CHR$ (16) 

PLOT2, 25, ‘Frame":PLOT9, 25, CHR$ (6) +"Score”: 
PLOT20, 25, CHR$ (2) +"Hi-Score" 

PLOT30, 25, CHR$ (4) +"Lives" 


PLOT10, 26, CHR$ (7) PLOT22, 26, CHR$ (3): 
PLOT32, 26, CHR$ (5) :PLOT32, 1, CHR$ (16) 

Es="" 

FORI=1T05:E$=E%+CHR$ (17) :NEXT 

FORI=1T010:E$=E$+CHR$ (19) NEXT 

FORI=1T015:E%=E$+CHR$ (19) :NEXT 

PLOT2,0," “:PLOTO, 0, CHR$ (4) 

PLOT2,0, "Energy":PLOT32, 0, "Time" 

PLOT2,1,E$ 

'32,1;T:'3, 263F 2110, 263S $22, 263HI (1) 2 $32, 263b 

PLOTOX, OY, "A" 

CALL#E804 

RETURN 

OS=NS: NS=SCRN (NX, NY) 

OK%= ( (NS=71) OR (NS=72) OR (NS=73) OR (NS=74) OR (NS=80) ) 

IF OK%THENRETURN 

IFNS=32THENOK%= ( (NY<>4) AND (NY< >7)) 

IFNX< 3THENNX=3: OK%=TRUE : NS=32 

IFNX >34THENNX=34 : OK%Z=TRUE : NS=32 

IFNY >24THENNY=24: OK%=TRUE : NS=32 

RETURN 

PLOTOX, OY, "K" 

GARBAGE=FRE ("") 

FORI=1TOSOOSTEPS: SOUND1, I, 12:PLAY1,0, 1, 1000: NEXTI:PLAYO,0,0,0 

PLOTOX, OY,NS 

L=L-1: !32, 26;L:PRINTCHR$ (30) 

IFL=OTHENGOSUB3400 “Game over 

IF (T<=1) OR (T>100) THENGOSUB1410 ELSE GOSUB1411 

'32,137T:PLOT2, 1,E%: PRINTCHRS (30) 

PLOTOX, OY, "A" 

POP: PULL 

IF DEEK (#276) >10000THENGOTO9OEL SEGOTO 100 

DS=SCRN (OX, OY) 

PLOTOX, OY, OS: OS=SCRN (OX, OY) 

PLOTNX,NY,DS 

IFNY >=OYTHEN2830 


2815 
2820 
2830 
2840 
2845 
2850 
2855 
2840 
2865 
2870 
2880 
2890 
2900 
2910 
2920 
2925 
293U 
2940 
3000 
3001 

3005 
3010 
3015 
3020 
3025 
3030 
3035 
3200 
3205 
3206 
3207 
3210 
3211 

3215 
3216 
3220 
3225 
3230 
3235 
3240 
3245 
2250 
3255 
3300 
3305 
3310 
3500 
3505 
3510 
3520 
3540 
3550 
3555 
3560 
3600 
3601 
3605 
3610 
3615 
3620 
3625 
3630 
3635 
3640 
3650 
3660 
3670 
3680 


$=S+5:E=E-1: '10, 26;S:PRINTCHRS (30) :PLOT2+E,1,16 
IFE<=OTHEN2700 

OX=NX: OV=NY 

IFNS< >71THEN2860 

S=S+20+108F :E=30 
FORI=50T010STEP-S: SOUND1, 1, 7: PLAY1,0,1, 1000: NEXTI:PLAYO,0,0,0 
'10, 26; S:PRINTCHR$ (30) : PLOT2, 1, E$:NS=32 

IFNS< >BOTHENRE TURN 

PLOTNX,NY, "E" 
FORI=250TOSOSTEP-10: SOUND1, 1, 10:PLAY1,0,1, 1000: NEXTI:PLAYO,0,0,0 
S=S+30+2048F : '10, 26; S: PRINTCHR$S (30) s H=H+1 

IFH< 4THEN2940 

T$="EF DECDBCAB9A897 867564534231 2C1&" 

TE=3: OC=3:LT=LEN(T$) :GOSUB1815 

S=S+T#10: '10, 26:S: '32, 1; "00":PRINTCHR$ (30) 

WATT99: GOSUR1419 

FUP: FULL :GO1U6u 

GOTO02730 

CLS:PAPERO: INK7 
GARBAGE=FRE ("") 
AS=CHRS (6) +CHR$(10)+"Doggy Bone 
PLOTS, 1, A$:PLOTS, 2, AS 
FORI=1TO8: J=I: IFJ>STHENJ=J—-S 
Z=1%*2+3:PLOT46, Z,CHRS(J) +" Pi 
'7,Z312'12,Z3HI (1) sPRINTCHRS (30) 
PLOT21,Z,HI$(I) =NEXT 

RETURN 

PLOTS, 22, CHR$(6)+"Please enter your name" 
PRINTCHR$ (30) 

FORI=1T022: PRINT: NEXT 

K$=KEYS 

POKE#26A, 3 

PRINTCHR$ (20) 

INPUTNS 

PRINTCHR$ (20) 

POKE#26A, 10: PRINTCHR$ (30) 

IFLEN(N$) >16THENN$=LEFT$ (N$, 15) 

HI (8) =S:H1I$ (8) =N& 

FORI=7TO1STEP-1 

IFHI (1) <HI (1+1) THENGOSUB3300 

NEXTI 

GOSUB3000 

RETURN 

Z=HI (1) sHI (1) =HI (141) sHE(I+1)=Z 

AS=HI$S (1) SHIS( 1) =HIS(I+1) sHIS(I+1) =AS 
RETURN 

T%=INT (DEEK (#276) /100) 

IFTZ>=INT (T) THENRE TURN 

T=T%: 132,13 Ts PRINTCHRS (30) 

IFT/2=INT (T/2) THENE=E-1:PLOT2+E,1,16 

IF T<=OORE < =OTHEN2700 

IFT<11THENCALL #F AFA 

C=C+1 

RETURN 

POP: POP: PULL: K$=KEY$ 

GARBAGE=FRE ("") 

PLOT13,3,CHR$(12)+"GAME OVER" 

WAIT200 

GOSUB3000 

IFS>HI (8) THENGOSUB3200 

PLOT4, 22, CHR$(3)+"Press <1> for a new game" 
PLOT12, 23, CHR$(5)+"<2> to finish" 
REPEAT: GETK$: UNTIL (K$="1") OR (KS="2") 
IFK$="1" THEN4O 

POKE#26A, 3:CLS 

PAPER7: INKO: PRINTCHR$ (20) 

END 

REM Frogram by David Reid 


“+CHR$ (5) +"Hi —Scores" 


SUI}SI] JUOg A3ssOqG 


9TeMIzZOS 


Thank you for a nice magazine. 
However I would like to make 
some comments on different 
items in issue 2. 


Regulars (Disaster Area) 

The TAB function does only 
work correctly to the first TAB 
position (the reduction of 13 
taken into consideration). It is 
impossible to use the TAB func- 
tion to get correctly lined col- 
umns because the following 
TAB positions are dependent of 
how many characters a field or 
number consists of. Only cum- 
bersome calculations to calcu- 
late number of spaces after hav- 
ing gone over strings can over- 
come this. Or am I wrong? 


Cassette handling 

Very interesting items. Would 
like to see solutions for MERG- 
ING and VERIFYING tapes. 
By the way, Saving the screen 
works OK but it is impossible to 
continue working after a reload- 
ing of the screen content. I 
always get the fault report: OUT 
OF MEMORY, and I can’t get 
around it. 


From Bits to Screen Attributes 
Has the author really tried his 
examples on a machine, or has 
he only read the manual? 


(a) As address 48560 refers to 
column one, you can’t POKE 


Regulars 


Fatt, 


characters into that column as 
described on page 27 columns 2 
and 3. 


(b) I can PLOT and POKE 
characters with numbers greater 
than 128 and get reversed video, 
but I can’t PRINT. I have tried 
on several ORICs with the same 
result, so it must be a bug. 


(c) You can’t use the example 
PRINT CHR$(4); CHR$(27); 
“QO”; “HELLO”;CHR$(4)_be- 
cause the attribute goes into 
column 1 (I think). You have to 
put in one space before the 
escape character. And the attri- 
bute should be N, not O as 
shown in the example. The fol- 
lowing statement works better: 
PRINT CHR$(4);” “;CHR$ 
(27);“N”;“HELLO” ;CHR$(4) 


Lennart Arndtsson: 
Sweden. 


Uppsala 


Editor: You have pointed out an 
important shortcoming in the 
Oric Owner which we are 
urgently trying to rectify. This is 
the problem of accurately proof- 
reading and testing program list- 
ings. With this in mind, we are 
trying to recruit an additional 
member of staff to help with the 
editorial side of the magazine. If 
you are interested, drop me a 
line. 
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Software 


An educational program for 
pupils from 7 upwards. 


Aims 

This program was written as a 
game to help pupils to recognise 
the correct spelling of words. 


Description 

The program is meant for use 
within a classroom situation, 
although changing the messages 
will make it suitable for use at 
home. It was developed for use 
with 8-10 year olds, who have a 
good vocabulary. It is easy to 
modify to suit children from 
5-9 by changing only a few lines 
(see below.). 


The program will firstly ask the 
teacher how many pupils are to 
‘have a go’ at this program. Each 
pupil will be presented with ten 
questions chosen at random 
from 60 DATA lines. It is pos- 
sible to increase the possibili- 
ties by adding extra data items 
and changing 
AD=INT(RND(J)* number of 
lines of data—9). You will also 
need to change LINE 1300 to 
FOR Z=1 to number of lines of 
data and in addition you need to 
dimension the arrays (line 12) 
accordingly. 


The program will then give each 
pupil 10 questions chosen from 
the data items in order. The data 
pointer is set by line 90 to a 


line 90 to 


Spelling 


By S. W. Lucas 


random question. After 10 ques- 
tions, the pupil will be given 
their score and the next pupil 
will be asked to ‘have a go’. 


When all the pupils have taken 
their turn to try the program, the 
results will be printed out either 
on a printer, if one is available, 
or on the screen. It is better to 
use a printer because if more 
than 23 pupils are listed, the 
screen will scroll! 


Modifications 

In order to make this program 
suitable for pupils of different 
ages, it needs to be adapted. I 
have made this a very easy pro- 
cess (as can be seen from the 
listing). 


Lines 10000-10620 contain data. 


Because the ORIC 1 will not 
accept lines of greater than 80 
characters in length, it has been 
necessary to split some data 
statements into two lines. 


The data consists of 4 alternative 
spellings of the word followed 
by the number of the correct 
answer and finally a clue (often 
a dictionary definition of the 
word.) 


Thus changing the program 
involves only modifying the 
DATA lines and (perhaps) 
changing line 220. Line 220 is a 
wait statement which should be 
increased for younger pupils in 
order to give them more time 
to read the four alternative 
answers. 


Notes 
REM statements are included 
throughout the program to help 
the user to adapt the program 
for their own use. As it stands, 
the program is ideally suited for 
pupils from 9 upwards, although 
the wait statement in line 220 
will need to be increased for 
children who can’t’ read 
quickly! 
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S REM SPELLING QUIZ 

6 REM AN EDUCATIONAL FROGRAM BY 

7 REM S.W. LUCAS 

8 J=1:REM SEED FOR RANDOM NUMBER 

10 TEXT: GRAB: PAPERO: INK1 

11 REM DIMENSION THE ARRAYS IN THE NEXT LINE TO SUIT YOUR USE ! 

12 DIMA#$(61,4),A(61),BS(61) 

13 REM A$ HOLDS THE FOUR ALTERNATIVE ANSWERS 

14 REM A HOLDS THE NUMBER OF THE CORRECT ANSWER 

15 REMBS HOLDS THE MEANING/CLUE OF THE WORD 

16 PRINTCHR$(17):REM TURNS CURSOR OFF 

20 GOSUB16000:REM TITLES 

25 RESTORE 

30 REM NOW READ THE DATA FOR THE QUESTIONS INTO THE ARRAY 

31 REM IT IS STRAIGHTFORWARD TO CHANGE THE DATA TO SUIT THE AGE OF 
THE CHILD! 

32 REM USE SIMPLER WORDS FOR YOUNG CHILDREN AND EXTEND THE VOCAB FO 
R OLDER 

33 REM PUPILS: REMEMBER FOUR ALTERNATIVES,FOLLOWED BY THE NUMBER OF 


24 REM CORRECT ANSWER : FOLLOWED BY THECLUE/WORD DESCRIPTION 

35 REM FOR OLDER PUPILS ONLY GIV! THE CLUE, FOR YOUNGER PUPILS GIVE 
36 REM A MEANING OF THE WORD : THE WORDS GIVEN ARE ONLY AN EXAMPLE 

37 REM CHANGE THE WORDS TO SUIT THE AGE GROUF BEING CONSIDERED 

40 GOSUB1300 

SO CLS 

60 PRINT: PRINT: PRINT: PRINT: PRINT: PRINT"How many children are there" 


70 INFUTAA 
71 DIMSC(AA):REM ARRAY SC(AA) HOLDS EACH PUPILS SCORE 
80 CLS:FORX=1TOAA 
2 SC(X)=O:REM SET SCORE TO ZERO 
90 AD=INT(RND(J) #51): IFAD* 1 THENAD=1 
91 IFAD>SOTHENAD=50 
9S PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT 
96 PRINT 
100 FORXP=1 TO 10:REM SET TEN QUESTIONS 
105 REM NOW CHANGE THE ATTRIBUTES SO THAT WORDS PRINTED IN BACKGROU 
ND COLOUR 
106 PLOT1,4,0:PLOT1,8,0:PLOT1,12,0:PLOT1,16,0 
110 PLOT2,4,A$ (AD, 1) 
120 PLOT2,8,A%(AD, 2) 
130 PLOT2,12,A$(AD,3) 
140 PLOT2,16,A8(AD, 4) 
144 PLOT1,1,3:PLOT1,2,3:PLOT1,24,6 
150 PLOT2,1,"press “space bar» when the correct" 
160 PLOT2,2,"spelling of the word is shown" 
170 PLOT2, 24, BS (AD) 
185 PP=0 
190 REPEAT 
200 PLOT1,PP,5:REM SET ATTRIBUTE TO MAGENTA --- CHOOSE YOUR OWN COL 
OUR 
220 WAITSO:REM CHOOSE WAIT TIME TO SUIT FUFILS AGES 
221 PLOT1,PP,0:REM SET TO BACKGROUND 
222 PP=PP+4:REM TO SET NEXT TO ALTERNATIVEanicol 
225 IFPP>16 THENFP=4 
300 UNTIL KEY$=" " 
310 LETDX=PP/4—1: IFDX=OTHENDX=4: REMDX=NUMBER OF ANSWER SELECTED 
320 IFA(AD)=DXTHEN GOSUB11000 ELSE GOSUB 12000:REM ROUTINES FOR COR 
RECT OR 
321 REM INCORRECT ANSWERS 
325 AD=AD+1 
326 REM INCREMENT’S THE QUESTION SET 
330 CLS:NEXTXP:REM NEXT QUESTION 
340 CLS:PLOT1,1,1:PLOT2,1,"What is your name" 
345 PRINT: PRINT: PRINT: PRINT: PRINT 
350 INPUTN$ (xX) 
360 CLS:PING:FLOT1,10,3 
370 PLOT2,10,"Thank you for playing " 
380 PLOT1,14,3:PLOT10,14,N#(X) 
390 PRINT: PRINT: PRINT: PRINT: PRINT: PRINT 
392 PRINT: PRINT: PRINT: PRINT: PRINT 
395 PRINTCHR$(131)"You scored :- "3SC(X)" out of ten '" 
396 PRINT:PRINT: PRINT 
397 IFX< >AATHENFRINT"NOW LET THE NEXT PUPIL HAVE A GO":GOTO399 
398 PRINTCHR$ (133) 3 "PLEASE CALL THE TEACHER" 


Di ee ee SS 


399 PRINT: PRINT: FRINTCHRS (129) " Press «SPACE BAR» when ready" 
400 GETS 

490 CLS : 

S00 NEXTX:REM NEXT CHILD*S GO 

501 REM NOW THE ROUTINE TO PRINT THE RESULTS 

510 CLS:PRINT: PRINT: PRINTCHR$(131)3"Do you have a printer attached 
arn 

520 REPEAT: AAS=KEY$:UNTILAAS="Y" ORAAS="N" 
S30 IFAAS="Y"THEN GOSUB20000 ELSE GOSUB 3 
540 PRINT:PRINT"PRESS <SPACE BAR>" 

550 GETDS 

560 CLS:FLOT1,10,"Do you want to play again?" 
570 REPEAT: GET AAS: UNTILAAS="Y"ORAAS="N" 

580 IFAAS="Y" THENRUN 


938 ERA t1TLes suBROUTINE 

1000 CLS:FORX=1TO2 

1010 PLOT1,X,14:PLOT2,X,X+2:PLOT1IO,X, "SPELLING QUIZ" 

1020 NEXT 

1030 FORX=10TO15:PLOT1, X,X-9: NEXT 

1040 PLOT2,10,"a game for the ORIC 1" 

1050 PLOT2,12,"by S. W. Lucas" 

1060 PLOT2,14,"The game keeps the score of up to 50" 

1070 FLOT2,15,"players (such as a class group)" 

1080 PLOT2,16,"and you can get the results printed" 

1090 PLOT1,17,5 

1100 FPLOT2,17,"out later. You will first be asked " 

1110 PLOT1,18,2 

1120 FLOT2,18,"how many pupils there are." 

1130 FORX=20TO25:PLOT1,X,X-19 

1140 NEXT 

1150 PLOT2,20,"Each pupil will then presented with" 

1160 PLOT2,21,"10 questions chosen at random." 

1170 PLOT2,22,"Choose your answer by" 

1180 FLOT2,23,"pressing' the <SPACE BAR>" 

1185 PLOTS, 25,"PRESSS «SPACE BAR» TO CONTINUE" 

1190 REPEAT: J=J+1:AS=KEY$: UNTILAS=" " 

1191 CLS:PLOT1,10,"please wait whilst I set the questions" 

1220 RETURN 

1300 FORZ=1TO060 

1310 FORY=1T04 

1320 READAS$(Z,Y) 

1330 NEXTY:READA(Z) ,BS(Z) 

1340 NEXTZ 

1350 RETURN 

2299 REM ROUTINE TO READ DATA INTO THE ARRAYS 

10000 REM DATA FOR THE QUESTIONS 

10010 DATA capital,kapital,capitol,capertal,1,of chief importance 
10020 DATAdi ssappointing, disappointing, disapointing, dissapointing,2 
10021 DATAnot up to expectation 

10030 DATAwhipet,whippit,whippet,wippet,3, a type of dog 

10040 DATAtransperent, transparent, transparant,transperant,2 

10041 DATA can be seen through ; ; ; 
10050 DATAnececity,necesity,necessety,necessity,4, something which i 
Ss needed 

10060 DATAasasination, assassination, assasination, asassination,2 
10061 DATAmurder 

190070 DATAbrenkitis,bronchitis,bronchitus,broncitis,2,an illness 
10080 DATAcentenary,centenery,centanery, sentenary,1,hundredth anniv 
ersary 

10090 DATAsentrifugal,centrafugal,centrifugul,centrifugal,4 

10091 DATAforce of a spinning object 

10100 DATAconventional,convensional,conventionul,konvensional,1 
10101 DATAthe normal response 

10110 DATAalocation,aloccation,allocation,allocatian,3,to assign 
10120 DATAcompulsory, compulsary,compulsery,compullsory,1 

10121 DATAsomething you have to do 

10130 DATAcontroler,controllor,controlor,controller,4,person in cha 
rge 

10140 DATAcalendar,calender,callendar,callender,i,table of the year 
s dates 

10150 DATAappreciate, apreciate, apreciete,appresiate,i,set a high va 
lue on 

10160 DATAStyle,styal,stial,stile,1i,design 

10170 DATAsterilise,steralise,steralize,sterilize,4,to get rid of m 
icrobes 
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10180 DATAsindicate, syndicate, syndecate,sindecate,2,group of people 
10190 DATAtempreture, temperature, tempereture,temprature, 2,degree of 
heat 

10200 DATAidenticle,identacle,identical,identecal,3,alike 

10210 DATAhidrogen,hydrgen,hydrogen,hydrogan,3,a chemical element 
10220 DATAbugerigar,bugarigar,budgerigar,budgeregar,3,a type of bir 

d 

10230 DATAadminister, adminster, adminester,adminestar,1,look after a 

ffairs 

10240 DATApharmecy,pharmarcy,pharmercy,pharmacy,4,chemists shop 
10250 DATApossession, possesion, possesion, posession, 1,0wn 

10260 DATAretaleate,retaliate,retalayate,reataliate,2,get your own 

back 

10270 DATAstomache, stumach, stomacke,stomach,4,part of the body 
10280 DATArhithm,rithm,rhythem,rhythm,4,part of music 

10290 DATAsucessful, succesful, successful,sucesful,2,do it correctly 
10300 DATAsubstansial, substanshal,sustantial,substantiel,2,not inco 

nsiderable 

10310 DATAspatious, spachious, spasious, spacious,4,plenty of room 
10320 DATAoxigen, oxegen, oxejun,oxygen,4,a gas 

10330 DATAorchid,orkid,orchyd,orcid,1,a flowering plant 

10340 DATAnavigation,navigashion,navigatian,navigaton,1,sail a ship 
on course 

10250 DATAnecesary,neccessary,necessary,neccesary,3,indispensable 
10360 DATAmecanical,mechanical,mechanicle,mechanicol,2,works by mac 
hines 

10370 DATAimpossibal,impossible,imposible,impossable,2,not allowed 
10380 DATAidolise,idolize,idlise,idlize,2,to love 

10390 DATAhalucination,hallucinatian,hallucination,halucinatian,3,i 
llusion 

10400 DATAforcable, forcible, forsable,forsible,2,done using force 
10410 DATAextraction,extracshion,extraktion,extracsion,1,take out 
10420 DATAenvelope,henvelope, envylope,envalope,1,you put letters in 
it 

10430 DATAendles,hendles,endlless,endless,4,without an end 

10440 DATAcomputer,computar,computter,computur,1,a machine for game 
s and maths 

10459 DATAsituation, sithuation,situashion,situachion,1,position you 
are in 

10460 DATAassembel, assemble, asemble,asembel,2,bring together 

10470 DATAacumal ate, accumalate, accumerlate,accumulate,4,heap up 
10480 DATAcontent, contant,contente, kontent,1,satisfied 

10490 DATAexpreshun, expresion, expression,hexpression,3,wording or p 

hrase 

10500 DATAencountar, encoutur, encountter, encounter,4,close contact 
10510 DATAmanual, manuel ,manuarl,manurl,1,done by hand 

10520 DATAflasching, flashzing,flachsing,flashing,4,a lamp turning o 
## & on 

10530 DATAampliffier,amplifier,ammplyfier,amplyfier,2,makes louder 
10540 DATAwhasteful,wastfull,wastefull,wasteful,4,not economical 
10550 DATAfigure, fighure, phigure, phighre, 1, shape 

10560 DATAconcider,consider,considure,concidur,2,contemplate 

10570 DATAvibrasion, vibration, vibrasian, vabratian,2,move continuous 
ly 

10580 DATAaltering,altaring,alturing,haltering,1,changing 

10590 DATAprobablie, probabley,probably,probebly,3, most likely 

10600 DATAcomplicated, complhicated,complecated,complacated,1,involv 

ed 

10610 DATAcasette, cassette, casete,cassete,2,type of tape 

10620 DATAcontoled, kontrolled,controllad,controlled,4,run by 

11000 CLS:REM ROUTINE FOR CORRECT RESPONSE 

PLOT10,10,"C OR RECT!" 

FORPK=1TO 7 

ZAP: PLOT1, 10, PE 

WAIT20:NEXT:REM CREATES SOUND AND CHANGES THE COLOUR 

REM INCREMENT SCORE SC(X) OF XthPUPIL 

11050 SC(X)=SC(X) +1 

11060 RETURN 

12000 CLS:REM ROUTINE FOR INCORRECT ANSWER 

PLOT10,1,6:PLOT11,1,"W R ON G" 

020 PLOT1,10,3:PLOT2,10,"It was :-" 

12030 PLOT20,10,A$(AD,A(AD)):REM CORRECT SPELLING 

12039 REM SOUND EFFECT FOR LOSING 

12040 FORXX=1T06 

12045 FORYY=1 TO 150 STEP 3 

12050 SOUND1,YY,15 


—_—___—_— 
2060 NEXTYY, XX 


12065 SOUND1,0,0 

12070 RETURN 

19999 REM ROUTINE TO SEND RESULTS TO PRINTER 
20000 LPRINT"NAME ", "SCORE OUT OF TEN" 

20010 FORX=1TOAA 

20020 LPRINTN®(X),SC(X) 

20030 NEXT 

20040 RETURN 

30000 PRINT"NAME", "SCORE OUT OF TEN" 

) FORX=1TOAA 

PRINTN# (X) ,SC(X) 

3 0 NEXT 

30040 RETURN 
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_ Oric Quickies — 


Prime Numbers 
By E. Hollister 


Programs to calculate and print 4 CLS 
Prime Numbers are varied in S DOKE630, 65535 
their methods of approaching Le Beton 


; 20 DIMN(B} 
the problem and the time taken sO A=SOR(B) 


to complete the task. The AO Z=INT(A) 

BASIC program listed below 50 FORX=3TOZSTEP2 

will calculate and print (to SS FORW=X*23TOBSTEPXk2 
VDU) Prime Numbers up to the 60 N(W)=4 

value allocated to ‘B’ in line 10. oe — 

Taking 120 seconds to run with 30 CORAB=STOR-iSTEF? 

B set to 1000. Lines 5 and 115 ico IFN(A)=OTHENFRINTA: 
provide a useful on sreen check 110 NEXT 

of the program running time and 112 PRINT 

can be applied to to other iis PRINT (65535-DEEr 
programs. (S30) } /100"S5ECONDS": STOP 


Orics Rule! 
By A. M. Brown 


S REMK*ORICS RULE! x4 
10 CLS:PAPERO: INK7 
20 PRINT: PRINT: PRINT 
3O PRINTCHRS (4): CHR (27): "N 
*#KORICS RULE! 4%" 
40 FORC=1TO5 
50 PRINT: PRINT 
SO PRINT EERE RAK EKA RRR EEK 
eet ceeceteeteese ss ay 
INEC 
WAITSC 
NEXTC 
PRINTCHRS (4) 
Th="14321432141414321" 
FORI=1TOLEN(T#) 
N=ASC (MIDS (TS, 1, 


reed 
Ce er 
ate! 


ne 


i] 
ne 
a) 


on 
a a 


L}3-A? 


es 
Can] 


tal fa Re 


me 
sea! 


140 PLAY7,0, 5, 2506 
150 MUSIC1,1,N,10 
140 MUSICZ,2.N,10 
470 MUSICS. 3.N, ic 
196 WAIT?:NEXT 
190 PLAYO,0,0,0 
200 WEITSO:EXPLODE 
CLS:PAPER4: INK& 
WAIT2O: PAPERI: INKS 
WAITZO: PAPERG: INK? 
> PRINT:FRINT: PRINT: PRINT: 

PRINT: PRINT: PRINT: PRINT: 

PRINT: PRINT:PRI NT:PRINT 
250 PRINT:PRINT" 

#":WAITIOO: INKO:CLS 


‘mat 
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Pattern Recognition 
By G. M. Phillips 


5 REM BY GEOFF FHILLIFS OCT ’83 
10 HIMEM#17FF:DIM A%(100) : POKE#2GA, it 
15 GOSUB2000 
20 HS=0: GOSUB7000 
30 PRINT:PRINT:PRINT"Enter starting level (1-95) ": INPFUTS$:S=VAL (S$) 
: IFS=950RS< 1 THENSO 
35 SC=0:L=S: GOSUBSOOO 
40 PRINT:PRINT:PRINT"score: "SC" level “L 
50 PRINT:PRINT"Press a key to start"::GETZ% 
70 GOSUB9000 
80 PRINT:PRINT:PRINT“Use ARROWS to enter pattern” 
90 FORI=1TOL 
92 IFKEY$< >""THEN92 
95 GETZ$: IFZ$=""THENIS 
100 Z=ASC(Z): IF Z<8O0RZ>11THENSS 
1901 GOSUBS8000 
102 IFZ=A%( 1) THENGOSUB4000: NEXT: GOSUBS8000: GOTO150 
105 PRINT:PRINT:FRINT"W RONG !!t" 
107 FING 
110 FORI=10TOZOOSTEFP?: PLAY1, 0,0, 0:SQUND1, 1, 10: NEXT: PLAYO,0,0,0 
115 WAITZ200:PRINT:PRINT:PRINT"This is what the sequence was: ":WAITG 
0: GOSUB9I000 
120 PRINT:PRINT:PRINT"Your score was "SC" 
' 130 IFSC 2HSTHENHS=SC 
140 PRINT:PRINT"high score: "HS" Please press a key. ":GETZ$:GOTO30 
150 SC=SC+L#10:L=L+1: IFL<101THEN4O 
160 TEXT:PRINT:PRINT"CHEAT! !":EXPLODE 
170 END 
2000 CLS:PRINT"Pattern Recognition — Geoff Phillips":PRINT 
2010 PRINT"In this game you will be shown a "“:PRINT 
2020 PRINT"series of coloured circles, with a “:PRINT 
2030 PRINT"musical tone, which will appear in":PRINT 
2040 PRINT"the top, bottom, left or right of ":PRINT 
2050 PRINT"the screen. ":PRINT 
2060 PRINT"You must then re-enter that pattern":PRINT 
2070 PRINT"by using the arrow keys, corresponding 
2080 PRINT"to the position of the circles that":PRINT 
2090 PRINT"you saw. The number of circles will":PRINT 
2100 PRINT"be increased when you are correct, and " 
2110 PRINT"your ‘score will be increased.":PRINT 
2140 PRINT" "CHR#(27)"APress any key to begin" 
2145 REPEAT: A=RND (9) = UNTILKEY$< >"" 
2150 RETURN 
5000 REM GENERATE ARRAY OF NUMBERS 
5010 FORI=1TO100:A%Z(1)=RND (9) #448: NEXT 
5020 RETURN 
6000 REM PLAY NOTE AND SHOW CIRCLE 
6010 PLAY7,0,1,500:K=(A%(1)—6) *2: MUSIC1, 2,K, 0:MUSIC2,3,K,O0:MUSICS,4 
3K, O 
6020 ONAZ (1) -7G0TO06040, 6050, 6060, 6070 
6040 CURSETO,67,3:FILL67, 1,4: G0TO6080 
6050 CURSET120, 67,3: FILL47,1,3:GOTO6080 
6060 CURSETO, 133, 3:FILL467,1,7:GOTOQ6080 
6070 CURSETO,0,3:FILLG7,1,1 
6080 RETURN 
6090 RETURN 
46500 WAITSO-L/3: RETURN 
7000 REM SETUP SCREEN 
7010 HIRES 
7O15 PRINT"Please hang on a tic..." 
7020 GOSUBSBD00 
7030 CURSET120, 33, 1: GOSUB7500: CURSET40, 100, 3: GOSUB7500 
7040 CURSET200, 100, 3: GOSUB7500: CURSET 120, 167, 3: GOSUB7500 
7050 RETURN 
7500 REM FILL IN CIRCLE 
7510 FORI=1TO30:CIRCLEI, 1: NEXT: RETURN 
8000 REM WIPE ALL CIRCLES 
8010 CURSETO,0, 3:FILL200, 1,0: CURSET120,67,3:FILL67,1,0 
8020 RETURN . : 
9000 FORI=1 TOL: GOSUB&000: GOSUB6500: GOSUBB000: NEXT: RETURN 
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Etch-a-sketch 


By S. Thomas 


The game is based on the game 
Etch a sketch, it is in HIRES 
mode and the object is to draw a 
picture with the dot that starts 
off at curset 120, 100. The com- 
mands are quite simple 

U=Up 

D=Down 

L=Left 

R=Right 

C=Crircle 50,1 

Z=Circle 10,1 

X=Stop 


HIRES 

REM&* SE TCH-A-SEETOHEEE 

LETA=1290 

LETE=i106 

CURSET €4.B.1i 

GETAt 

TFAS="U" THENLETB=B-i 
IFAS="D" THENLET B=B+ 1 
TFAS="L"THENLETA=A-1 
ITFAt="R" THENLETA=A+1 
TP AR="E" THENCIRELESO, 1 
IP S¢="7"THENCIRCLEIG,1 
IFAS="X" THENSTGOFP 
GOo7o4 


ee ee eae ee) 


ta bd me 


“Play Your Cards Right” 
By M. Shaer and S. Singer 


S&S REMS*eBY M. SHAERES. SINGERKS 


10 CLS 


20 PRINT’ THIS I5 A CARD GAME BASED 


RDS RIGHT." 


SO PRINT"You have to say what the next suite is going to be. 


40 PRINT" i=CLUBS"” 

45 PRINT" 2=HEARTS"” 
30 PRINT" S=DIAMONDS" 
vo PRINT"4=SPADes” 
FO S=INTCRND(i} ¥434+1 
100 INPUTA 

116 IFA =STHENSoOG 
139 IFA=STHENZSO 


200 PRINT"Sorry vou are wrong” 


219 GOSUBZ4&C 


250 FPRINT"Weil done you are right" 


255 W=W+i 


250 PRINT"Do you want another aca 


265 INPUTAS 
270 LFAS="Y¥"THENIGC 
280 ITFAS="N" THENSOG 


200 CLS:FPRINT:PRINT:FPRINT:IPRINT" YOUR TOTAL WAS:" 


ON THE T.V. 


FROGRAM PLAY YOUR CA 


(¥/ND 


W" RIGHT" 
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Oric Quickies 
‘Lander’ designed by Jason L. Hall 


CLS 


PRINT"XXXXXXXXXXXXX LANDER XXXXXXXXXXXXXXXXX" 


PRINT" THE OBJECT OF THE GAME IS TO LAND 
PRINT" THE ROCKET ON THE LANDING PAD USING 
PRINT" THE LEFT AND RIGHT CURSOR KEYS." 
PRINT" GOOD LUCK!" 

PRINT"PRESS ANY KEY TO CONTILOGUE" 

GETCS 

POKE#26A,10 

CLS 

XX$=18:YY%=5 


POKE49040,17:POKE49689,17 
DI=INT(2*RND(1))+1 

X=INT(36*RND(1))+1 

T=200 

PLOTX, 24,127: PLOTX+1,24,127:PLOTX+2,24,127 
PLOTXX$,YY%,65 

PLAY7,9,0,@ 

REPEAT 

PLOTX,24," " 

IFDI=LANDX>=30THENDI=2 
IFDI=2ANDX<=2THENDI=1 

IFDI=1THENX=X+1 

IFDI=2THENX=X-1 

PLOTX, 24,127: PLOTX+1,24,127:PLOTX+2,24,127 
PLOTXX$%,YY%,32 

T=T+30:SOUND1,T,19 

KS=KEYS: IFKS=""THENKS=LS 

IF KS=CHRS (8) THENXX$=XX%-1:LS=KS 


PBL L PIS AS 
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This is a short program 
that enables you to land a rocket on a moving landing pad 


308 
3190 
320 
336 


IFKS=CHRS (9) THENXX%=XX%+1:LS=KS 
YY%=YY$+1 
IFXX%<=1THENXX$=1 : [FXX$>=38THENXX$=38 
IFSCRN (XX%,YY%) =127THEN4 20 
PLOTXX%,YY%,65 

WAIT2@ 

UNTILYY%=24 

CLS 

EXPLODE 

PRINT" YOU'VE CRASH LANDED!" 
WAIT49@ 

GOTO 469 

PRINT"PERFECT LANDING!" 

PING 

PLOTXX%,YY%-1,65 

WAIT4@@ 

CLS 

PRINT"DO YOU WANT ANOTHER GAME 
REPEAT 

GETAS 

UNTILAS="Y"ORAS="N" 
IFAS="N"THENGOTO56@ 

CLS 

PRINT"DO YOU REQUIRE INSTRUCTIONS? 
REPEAT: GETZS: UNTILZS="Y"ORZS="N" 
IFZS="Y"THENGOTO1GELSE1@@ 

PAPERG: EXPLODE 

END 


(Y/N) " 


(Y/N) " 


~ 


Oric Quickies 


ree UO eee CS Fentest Common Denominator” 


“Greatest Common Denomi- 
nator” uses Euclid’s G.C.D. 
algorithm to find the greatest 
common denominator of two 


By Gary Nugent 


numbers, A and B. Al and B1 i REM 4% Greatest Common Denominator #2 
are assigned the values of A and 2 REM ¥* (C) Copyright G.Nugent, 1985 «* 
B respectively so that the origi- 16 INPUT "Please enter 2 numbers: “34,5 
nal numbers in A and B will be silane pele 


2O IF Aino OR Big THEN PRINT "No Greatest 


preserved. Common Denominator.":GCGT 0 &o 
4O FIFBRi=0 THEN 7G 
There is no G.C.D. if either of SO IFAI<B1 THEN T=A1:A1=Bi:Bi=T 
the numbers is negative. If one S50 IFBic 20 THEN T=4t28i=Bi:Bi=T-INT{T/Bi? 
of the numbers is zero then the kBi:GOTOSS 
G.C.D. is just the other number ao ene ee Se Ee 
(which may also be zero). lalate 
Al must be greater than BI. If it 
is not line 50 swaps their values 
so that it is. Line 60 uses recur- 
sion to calculate the G.C.D., by 
calling itself until Bl equals 
zero. When this occurs Al con- 
tains the G.C.D. of the two The following Quickie “Card 
numbers and the value is printed Shuffle” will be useful to those 
out. intending to write their own 


card-game programs. The rou- 
tine shuffles suited cards which 
are required in Poker or Pon- 


CARD SHUFFLE toon, for example. 


The letters standing for the suits 
By Gary Nugent (H-hearts, S-Spades, D-diam- 
onds, C-clubs) can be redefined 
to be the actual suit characters. 


S&S REM *#% CARD SHUFFLE #x 


iO REM (C) COPYRIGHT G.NUGENT, 1982 T, J, Q and K stand for Ten, 
20 DATA AH, 2H, ZH, 4H. 5H. 4H, 7H, SH, 9H, TH, JH, GH. EH Jack, Queen and King respec- 
30 DATA AS, 2S, 35, 45,55, 6S, 75, 85, 95, 15, JS, 85,KS tively. The “T” can be redefined 
49 DATA AD, 2D,2D,4D,5D.4D,7D,8D, 9D, TD, JD, @D, KD to be a “10” symbol if you like. 


SO DATA AC, 2C,3C,4C,5C,46C, 70, 8C,9C, TC, JC, 8C,KC 


160 DIM CD#(51> The only problem with the pro- 


ae ek on ee ee ; peer gram is the use of RND which 
115 REM xx Shuffle cards *x produces the same sequence of 
igo FOR T=0 To Si “random numbers” each time 
1=G CD=INT(RND (1) #52) the computer is switched on. 
{40 T$=CDS (13 =:CDtiT}=LKDSiCh) «CDR iCDI=TsS This can be cured by using the 
i50 NEXTI 


method of creating a random 
seed described in the last issue of 
“ORIC OWNER”. 
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Oric Owner is the official magazine devoted to the Oric 1 and Atmos home computers. 


It's crammed full of in-depth information, advance news on the latest add-ons, superb programs and 


interviews with the engineers who designed it. 


The first issue is absolutely free when you buy your | 


Oric, so why not keep ahead of the latest developments 
and subscribe to further issues. A years subscription 
of 6 issues is now only £10 (£15 overseas) so post 
the coupon today. 
Can you imagine life without it? 


———— 


ORIC OWNER SUBSCRIPTION FORM 


' Please send me the next & issues 


| | enclose a cheque for (cheques payable to Tansoft Ltd) | 
Name 
| Address 

Postcode 


| Back issues are available for £1.20 each. If you missed your first 

free issue contact your dealer or Oric Products International who will | 

| Supply you with one $ 
s See ro GE BF Tansoft Ltd, Units 1 &2 


Cambridge Techno Park Newmarket Road, Cambridge CB5 8PB . 


TANSOFT are pleased to announce the 
prices for the Oric printer accessories 
which are as follows: 


Set of 4 colour pens £3.99 
(per set) 
Printer rolls £1.99 
(per roll) 


Above prices are inclusive of V.A.T. and 
P.+P. and are available from stock. 
Trade enquiries welcome. 


Stop Press 


Tansoft will shortly be releasing three 
new packages for the Oric and Atmos. 
These are Oric-Mac, a macro-assembler, 
Pascal and a Basic Compiler. These are 
being written in cooperation with Oasis 
Software. 


ORIC-1 SOFTWARE 
COMPARE THESE PRICES 


XENON-1 ....... £7.50 
INVADERS ............. £6.75 
REVERSE .......... £5.95 
FANTASY QUEST saagarseteattE £5.95 
3D MAZE & BREAKOUT .. ss senieeaninnmriying LOWS 
CANDYFLOSS & HANGMAN .. ndectereerones  LLIR, ararssecnsesensciem wee £6.75 
ZODIAC. wissccsccersnivernereicnecssesconesneeiesvtete _ ABE o......... see £6.20 
DEATH SATELLITE oo cocccssssunesnmnnnnnii ARE csc £6.20 
Tb UL ESTIR A ossceseroneadeliceserducodsicivsascaaaseiendebvsearmaes PSS sccconasvaies £6.40 
LIGHT CYCLE .cixcsseaiscinensciontecicrnaminincass POD wadistrerercmssine EOsO 
CENTIPEDE .. sce seiie) silt ahi PSS oo. . £6.40 
THE GAUNTLET seca INTENT PSS sycsspcenecives £6.40 
INVADERS ae ee a) ren ... £6.40 
HOPPER is PISS. acnescnstinnreceicin £OI4O 
ORICIMION savecessvesccessveatretannvesesetticincresvionassey PSS ....... £7.95 
FORTH ” TANSOFT £13.50 
ORIC BASE hittin DANSOPT ............. £13.00 
CHESS. .cnicciuanomanensdinaiomuiinonnanncdnis, LINGO U ag clei £8.95 
ORIC MUNCH | TANSOFT . £7.00 
RAT SPLAT EN ee Re ee TANSOFT £7.00 
DEFENCE FORCE... TANSOFT £7.00 
ORICICALG, « sasecsnaieretmsanese TANSOFT £13.00 
FLIGHT wavesensbeavdiantes soeeemnnece WANSOPT, sccesencs BaIOO 
THESHOBIBIT scscvorcesevnesceecvsriristransceiesenreecortstoersss TANSOFT .............. £13.50 
AUTHOR |... jemiannadians LANSOPT acces £1300 


ALL PRICES INCLUDE VAT & P&P — ALLOW 21 DAYS FOR DELIVERY 
PLEASE SUPPLY 


. .. TOTALENCLOSED € ......... 
NAME 
ADDRESS 


SEND ORDERS TO- POSTAL COMPUTER SERVICES, 
FREEPOST P.O. BOX 2, MIDHURST, WEST SUSSEX, GU29 9BR 


ALL: TRONICS, 
297 BRUS. STEENWEG, 
1950 KRAAINEM 

Tel: (09)(32)(0)2 7678223 


Authorized Benelux Distributor 


ORIC 48K 
ORIC 16K 
ORIC Games Software 
ORIC Assembler and 
Professional Software 


Joysticks 
Printers 
Manuals (Dutch & French) 
Extension boxes 
A/D converter 
I/D ports 
Heavier Power Supply, 
Ram upgrades etc. 


Dormere Software Now Presents 


Backg ammon 


(Reviewed by 7KG 
in this issue) 


A superb version of the classic game 
of backgammon for your 48k Oric. 


features:— 

@ 3 modes of play 

@ Machine code routines 
@ Hi-Res Graphics 

@ Coloured board 

@ Sound effects 


Orical Invaders 


A super-fast version of the ever 
popular space invaders game. 


features:— 


@ Hi-Res Graphics 
@ Full sound effects 
@ Hall of fame 
@ Written in machine code 
@ Fast/Slow bombs etc. 
@ Bonus Bases 
@ 16k or 48k Oric 


and if you haven't had enough yet. 

Try the ultimate in mind bending 
ames for all the family, 16/48k 
rical Games Pack 1. 

Stretch your intelligence with 

Symon, Brain strain, OXO and 

Battleships for only £4.95. 


Dealer's and Distributor’s enquiries 
welcomed. 


Cheques and P.O.s made payable 
to:— Dormere Software Limited, 
Belgreen House, Green St., 
Macclesfield, Cheshire. 

Tel: Macclesfield 619535. 
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PSS, creating programs 
for your ORIC 1.... 


Moon- 
base 
Alpha 


Atrace against 
time, tashexciting. 
arcade action. » 
£6°95 


I Can you-help Fergy. 

I <gnd his friends get 

| across the 4tane high 
“way and backto the 
filly POAA? 

86:95 > 


FOR INSTANT CREDIT CARD SALES TEL(0203)667556, SEND CHEQUE OR PO. 
TO PS.S.452 STONEY STANTON RD. COVENTRY CV6 5DG. 
TRADE ENQUIRIES CONTACT JOHN FLETCHER, COVENTRY (0203) 81346 


